Задание:
Найти среднее арифметическое всех целых чисел от 100 до 1000
Решение:
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.
Знаете другой ответ?
Найти среднее арифметическое всех целых чисел от 100 до 1000
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.
Знаете другой ответ?