Найти кол-во всех трехзначных чисел, кратных 6 и заканчивающихся на 4.
Pascal

valeriaky0707 valeriaky0707    1   24.03.2021 11:53    2

Ответы
Krasoto4kayoy Krasoto4kayoy  24.03.2021 12:00

var

_counter, i : integer;

begin

for i := 100 to 999 do

if ((i mod 6 = 0) and (i mod 10 = 4)) then

_counter := _counter + 1;

writeln(_counter);

end.

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