ПАСКАЛЬ! ОТМЕЧУ КАК ЛУЧШЕЕ! Запрограммировать три циклических алгоритма: 1)В первый день спортсмен пробежал - id1327980320210613 от niuaki 13.06.2021 21:10

Question

Информатика: ПАСКАЛЬ! ОТМЕЧУ КАК ЛУЧШЕЕ! Запрограммировать три циклических алгоритма: 1)В первый день спортсмен пробежал 10 км. Каждый следующий день спортсмен увеличивал норму пробежки на 500 м. Через сколько дней спортсмен будет пробегать 30 км? 2) Высота дерева равна 9 метрам. Улитка каждый день поднимается на 2 метра вверх, а за ночь спускается на 1 метр вниз. Через сколько дней улитка достигнет вершины дерева? 3) В 198... году урожай зерна составил 20 ц с га. В среднем каждые 2 года за счёт применения новых

niuaki · Accepted Answer

//Pascal ABC.NET v3.1 сборка 1172

//For

Var
ar:array[1..5] of integer;
i:integer;
r:real;
begin
for i:=1 to 5 do
begin
   readln(ar[i]);
   r:=r+ar[i];
end;
r:=r/i;
writeln(r);
end.

//while

Var
ar:array[1..5] of integer;
i:integer;
r:real;
begin
while i<>5 do
begin
   i:=i+1;
   readln(ar[i]);
   r:=r+ar[i];
end;
r:=r/i;
writeln(r);
end.

//repeat

Var
ar:array[1..5] of integer;
i:integer;
r:real;
begin
repeat
   i:=i+1;
   readln(ar[i]);
   r:=r+ar[i];
until i=5;
r:=r/i;
writeln(r);
end.

Пример ввода:
1
2
1
2
1
Пример вывода:
1.4

MOGZ ответил