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

Question

Answer 1

99

izyel

21 февраля 2023

Program Task; Var a, b, i: Integer; BeginFor i: =100 To 1000 DoBegina: =a+i; b: =b+1; End; WriteLn ('Результат: ', (a / b): 4:2); ReadLn; End.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить