Информатика, опубликовано 2018-08-22 22:07:37 by Гость

Язык программирования 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.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.