Найти количество целых положительных чисел, больших 100, меньших 500, кратных 12 и заканчивающихся на 4 или 6

Question

Информатика

Натоша

7 апреля, 16:58

Найти количество целых положительных чисел, больших 100, меньших 500, кратных 12 и заканчивающихся на 4 или 6

+1

Ответы (1)

Знаете ответ?

Андрюня · Answer 1

Var k, i:integer;

begin

k:=0;

for i:=101 to 499 do

if (i mod 12 = 0) and ((i mod 10 = 4) or (i mod 10 = 6))

then k:=k+1;

writeln ('k = ', k) ;

end.

Результат:

k = 12