Найти среднее арифметическое всех целых чисел в промежутке от 1 до 100
Найти среднее арифметическое всех целых чисел в промежутке от 1 до 100
Гость
Ответ(ы) на вопрос:
ГостьVAR i,s:integer; Begin for i:= 1 to 100 do s:= s+ i; writeln(s/100); End.
Не нашли ответ?
Похожие вопросы