Составьте программу вычисление количества трёхзначных чисел, кратных 2 и 3

Есть ответ
17.12.2022
91

Ответ


var 

  i : integer;

 

begin

  for i:= 100 to 999 do 

    if (i mod 2 = 0) and (i mod 3 = 0) then writeln(i); {Если остаток от деления на 2 и на 3 равен 0, то печатаем это число}

end.

 


Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
17.12.2022
Этот сайт использует cookies (Политика Cookies). Вы можете указать условия хранения и доступ к cookies в своем браузере.