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

Question

Информатика

Жанка

3 сентября, 09:56

Найти среднее арифметическое всех целых чисел от 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.