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

Question

Информатика

Вацлава

6 октября, 10:04

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

+4

Ответы (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