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

Лера240504 Лера240504    3   06.08.2021 15:59    32

Ответы
andrey231132 andrey231132  05.09.2021 17:49

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика