Составьте программу для нахождения среднего арифметического двузначных
чисел, кратных 3, с использованием параметрического цикла. Ответ
прикрепите в виде файла в среде PascalABC.
Ответы
Ответ дал:
0
var i,k,c:integer;
begin
k:=0;
c:=0;
for i:=10 to 99 do
begin
if ((i mod 3)=0) then
begin
k:=k+i;
c:=c+1;
end;
end;
writeln (k/c);
end.
Вас заинтересует
1 год назад
1 год назад
9 лет назад
9 лет назад