Предмет: Информатика,
автор: kolotilinar
Сколько натуральных чисел, меньших 1000, которые делятся и на 2, и на 3, и на 4 но не делятся на 5?
Ответы
Автор ответа:
1
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
Интересные вопросы
Предмет: Физика,
автор: ytforestres
Предмет: Қазақ тiлi,
автор: sofia20056376
Предмет: Химия,
автор: glazkovat4
Предмет: Математика,
автор: kisso4ka1
Предмет: Химия,
автор: суперчел