Напишите программу на паскале, которая определяет - вопрос №9454734 от Messi294 30.07.2021 13:55

Question

Информатика: Напишите программу на паскале, которая определяет числа в последовательности заканчивающиеся на 4 и кратные 6.

Messi294 · Answer

var

k, i, n, x: integer;

begin

readln (n);

k := 0;

for i := 1 to n do

begin

readln (x);

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

k := k+1;

end;

writeln (k);

end.