Информатика
Информатика, 14.10.2019 08:30, KeberMax

Вопрос/Задача:

Спортсмен в 1ый день пробежал 10 км., в каждый следущий он пробегал на 10% больше предыдущего дня. сколько км. он пробежал за 7 дней. составить программу на языке паскаль

Ответы на вопрос

Ответ
Ответ разместил: Гость

1024*768*6=4718592 бита или 4718592 \ 8=589824 байта

Ответ
Ответ разместил: Гость

ответ:

нуу попробуй не перезагрузить, а выключить и опять включить

( может сработает, желаю удачи)

Ответ
Ответ разместил: Гость

var

a: array [1..100,1..100] of integer;

n,m,i,j: byte;

sr: real;

sum: integer;

 

begin clrscr;

 

writeln('введи кол-во строк: ');

readln(n);

writeln('столобцов: ');

readln(m);

 

randomize;

for i: =1 to n do

  for j: =1 to m do

  a[i,j]: =random (10)+0;

 

sum: =0;

 

for i: =1 to n do

  for j: =1 to m do

  sum: =sum+a[i,j];

 

sr: =sum/(n*m);

 

writeln('среднее арифметичексое: ',sr);

readkey;

end.

 

p.s.

могу напутать с типами данных

Ответ
Ответ разместил: gjrdghhFafhj

program suma; vara,i: integer; c,b: real; begina: =10; b: =10; c: =0; for i: =1 to 7 dobeginc: =(10*(b/100))+b; b: =c; writeln(c); end; end.

Ответ
Ответ разместил: киса2013438

var finish,norma: real; i: integer; beginnorma: =10; finish: =10; for i: =1 to 6 dobeginnorma: =1.1*norma; finish: =finish+norma; end;

writeln('all= ',finish)end.

Похожие вопросы

Вопросов на сайте: