Найти среднее арифметическое всех целых чисел в промежутке - вопрос №1100106886 от shakutis 28.08.2020 04:27

Question

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

shakutis · Answer

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