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

ZABENOK123 ZABENOK123    3   07.03.2019 23:50    2

Ответы
geneu geneu  24.05.2020 04:22

VAR i,s:integer;

Begin

  for i:= 1 to 100 do

    s:= s+ i;

 writeln(s/100);

End.

 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика