Определите и выведите на экран кол-во натуральных чисел меньших 100 и делящихся на 5 и 7 одновременно

Question

Купава

27 ноября, 03:19

+4

Ответы (1)

Знаете ответ на вопрос?

Эллочка · Answer 1

Program z1;

var k, i:integer;

begin

k:=0;

for i:=99 downto 5 do

if (i mod 5=0) and (i mod 7=0) then

k:=k+1;

writeln (k) ;

end.