Question

Найти среднее арифметическое трёхзначных чисел. Составить программу в Pascal.

Answer 1

Program n1;
var i,sum: longint;
begin
sum:=0;
for i:=100 to 999 do sum:=sum+i;
write('срзнач: ',sum/900);
end.