Предмет: Информатика,
автор: MillkyWaay
Найти среднее арифметическое всех целых чисел в промежутке от 1 до 100
Ответы
Автор ответа:
0
VAR i,s:integer;
Begin
for i:= 1 to 100 do
s:= s+ i;
writeln(s/100);
End.
Интересные вопросы
Предмет: История,
автор: Аноним
Предмет: Обществознание,
автор: mrknm0016
Предмет: Биология,
автор: Аноним
Предмет: Математика,
автор: svetik35
Предмет: Математика,
автор: Dashka345543