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

Question

Информатика

Феоза

20 февраля, 01:21

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

+2

Ответы (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.