1. Составить программу, которая вычисляет сумму и среднее арифметическое чисел вводимых с клавиатуры, пока не будет введено число 0. 2. Составить программу, которая вычисляет сколько лет можно выполнять план по отлову рыбы, если запасы рыбы составляют а тонн, ежегодный прирост рыбы 25%, ежегодный план отлова с тонн.

PascalABC

Question

Информатика

Ева

17 ноября, 20:27

1. Составить программу, которая вычисляет сумму и среднее арифметическое чисел вводимых с клавиатуры, пока не будет введено число 0. 2. Составить программу, которая вычисляет сколько лет можно выполнять план по отлову рыбы, если запасы рыбы составляют а тонн, ежегодный прирост рыбы 25%, ежегодный план отлова с тонн.

PascalABC

+5

Ответы (1)

Знаешь ответ?

Кириакия · Answer 1

1)

Program n1;

var sum, k, a: integer;

begin

sum:=0;

k:=0;

readln (a);

while a0 do

begin

sum:=sum+a;

k:=k+1;

readln (a);

end;

write ('сумма: ', sum,'; срзнач: ', sum/k);

end.

2)

Program n2;

var a, c, sum: real;

k: integer;

begin

k:=1;

readln (a, c);

sum:=a;

repeat

sum:=sum+a*0.25;

k:=k+1;

until sum>=c;

write (k);

end.