Question

Ввести с клавиатуры n отрицательных и положительных чисел. Они могут принимать значения от -10000 до 10000. Найти кол-во трёхзначных чисел кратных 7 по модулю заканчивающихся на 1
Без массивов

Answer 1

var

 n, kol, i, ch: integer;

 

begin

 readln(n);

 kol := 0;

 for i := 1 to n do

 begin

   readln(ch);

   if (ch mod 10 = 1) and (ch mod 7 = 0) and (ch <= 999) and (ch >= 100) then kol += 1;

 end;

 writeln(kol);

end.