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

Question

Информатика

Сергуся

30 августа, 00:47

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

+1

Ответы (1)

Знаете ответ?

Витуша · Answer 1

Program Task;

Var a, b, i: Integer;

Begin

For i : = 100 To 1000 Do

Begin

a : = a + i;

b : = b + 1;

End;

WriteLn ('Результат: ', (a / b) : 4:2) ;

ReadLn;

End.