Предмет: Информатика, автор: MillkyWaay

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

Ответы

Автор ответа: archery
0

VAR i,s:integer;

Begin

  for i:= 1 to 100 do

    s:= s+ i;

 writeln(s/100);

End.

 

Интересные вопросы