Question

В последовательности из девяти элементов найдите количество элементов кратные 19 и 3. Составьте программу (Паскаль)

Answer 1

var

x, count, i : integer;

begin

count := 0;

for i := 1 to 9 do

   begin

   readln(x);

   if (x mod 19 = 0) and (x mod 3 = 0) then

       count := count + 1;

   end;

writeln(count);

end.