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

Задание:

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

Решение:

VAR i,s: integer; Begin for i: =1 to 100 do s: =s+i; writeln (s/100); End.

Знаете другой ответ?

Отправить свой ответ