Язык программирования Pascal

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

Question

Информатика

Василий

6 апреля, 21:59

Язык программирования Pascal

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

+5

Ответы (1)

Знаешь ответ?

Филиппыч · Answer 1

Var a, b, c:integer;

begin

b:=0;

for a:=100 to 999 do begin

if (a mod 5 = 0) then begin b:=b+1; c:=c+a; end;

end;

writeln ('чисел делящихся на 5 = > ', b);

writeln ('среднее арифметическое чисел делящихся на 5 = > ', c/b);

end.

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

Язык программирования Pascal

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