Сколько натуральных чисел, меньших 1000, которые делятся и на 2, и на 3, и на 4 но не делятся на 5?
Ответы
Ответ дал:
0
var i,k: integer;
begin
k:=0; i:=24;
repeat
if (i mod 5)<>0 then inc(k);
i:=i+24;
until i>1000;
writeln(k);
end.
33
begin
k:=0; i:=24;
repeat
if (i mod 5)<>0 then inc(k);
i:=i+24;
until i>1000;
writeln(k);
end.
33
Похожие вопросы
2 года назад
2 года назад
8 лет назад
8 лет назад
9 лет назад
9 лет назад