Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.