Найти среднее арифметическое трёхзначных чисел. Составить программу в Pascal.

0 голосов
49 просмотров

Найти среднее арифметическое трёхзначных чисел. Составить программу в Pascal.


Информатика (385 баллов) | 49 просмотров
Дано ответов: 2
0 голосов
Правильный ответ
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  Range(100,999).Average.Println
end.

Результат
549.5
(150k баллов)
0 голосов

Program n1;
var i,sum: longint;
begin
sum:=0;
for i:=100 to 999 do sum:=sum+i;
write('срзнач: ',sum/900);
end.

(149k баллов)