Найдите количество натуральных чисел, меньших 10000, - вопрос №10000120101936 от эмсикалаш 28.05.2021 02:09

Question

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

эмсикалаш · Answer

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....