Найти среднее арифметическое всех целых чисел в промежутке от 1 до 100

1

Ответы и объяснения

Лучший Ответ!
2012-03-21T19:43:06+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

VAR i,s:integer;

Begin

  for i:= 1 to 100 do

    s:= s+ i;

 writeln(s/100);

End.