Составьте блок-схему и напишите программу для нахождения среднего арифметического всех натуральных трехзначных чисел на отрезке [300; 900].

Question

Информатика

Митрофаний

24 марта, 09:32

Составьте блок-схему и напишите программу для нахождения среднего арифметического всех натуральных трехзначных чисел на отрезке [300; 900].

+4

Ответы (1)

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

Лукаша · Answer 1

Var

n, i, sum: integer;

sr: real;

begin

n:=0;

for i:=300 to 900 do

begin

sum:=sum+i;

n:=n+1;

end;

sr:=sum/n;

writeln ('srednee=', sr) ;

end.