Question

Найдите количество натуральных чисел, меньших 10000, которые делятся на 13 и на 19, но не делятся на 15.
Необходимо привести развёрнутое решение и (или) код программы, который решает данную задачу.

Answer 1

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.