Найти среднее арифметическое всех целых чисел от 100 до 1000
Найти среднее арифметическое всех целых чисел от 100 до 1000
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы