Найдите количество натуральных чисел, меньших 10000, которые делятся на 13 и на 19, но не делятся на 15.
Необходимо привести развёрнутое решение и (или) код программы, который решает данную задачу.
Ответы
Ответ дал:
3
program XieLian;
var i,k: longint;
begin
k:=0;
for i:=1 to 10000 do
if (i mod 13=0) and (i mod 19=0) and (i mod 15<>0) then
k:=k+1;
writeln(k);
end.
Вас заинтересует
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад
8 лет назад