< >

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

Ответы

Ответ дал: archery
0

VAR i,s:integer;

Begin

  for i:= 1 to 100 do

    s:= s+ i;

 writeln(s/100);

End.

 

Похожие вопросы
Русский язык
2 года назад
наиболее подробно о имени прилагательном
Английский язык
2 года назад
міні твір 10-15 речень про друга  
Алгебра
7 лет назад
решите эту задачу срочно
Алгебра
7 лет назад
sin(30°) – 2 × cos(60°) + ctg(45°) – tg(180°)
Математика
10 лет назад
Помогите пожалуйста. В первое хранилище привезли 300т картофеля, что составило четверть всего собранного в хозяйстве урожая картофеля. Во второе хранилище привезли треть всего собранного картофеля.
Геометрия
10 лет назад
Найдите отношение площадей треугольников АВС и PQR, если АВ=12 см, ВС=15 см, АС=21 см, QR=20 см, PR=28 см, PQ=16 см.
Алгебра
10 лет назад
СОКРАТИТЬ b^(2)/frac(2b-14)+49/frac(14-2b)  
Математика
10 лет назад
вырази в центнерах и килограммах: 604кг, 1604кг, 12604кг, 5907кг, 12008кг, 420580кг, 45560кг, 125250кг, 900231кг