Ответы
Ответ дал:
0
var
i,a:integer;
begin
a:=0;
for i:=1 to 90 do
if i mod 5<>0 then
a:=a+1;
writeln('Количество чисел не кратных 5: ',a);
end.
i,a:integer;
begin
a:=0;
for i:=1 to 90 do
if i mod 5<>0 then
a:=a+1;
writeln('Количество чисел не кратных 5: ',a);
end.
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
9 лет назад