Напишите программу на паскале, которая определяет - вопрос №9455134 от BlasterGloGang 18.06.2020 14:23

Question

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

BlasterGloGang · 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.