Cnt3_3 Ввести n чисел, подсчитать количество четных чисел больших или равных 12.

Question

Информатика

Лаврен

9 июня, 23:31

Cnt3_3 Ввести n чисел, подсчитать количество четных чисел больших или равных 12.

+1

Ответы (1)

Знаешь ответ?

Анастасьич · Answer 1

Var s, i, x, n:integer;

begin

writeln ('Введите n');

readln (n);

for i:=1 to 6 do

begin

readln (x);

if (x>=12) and (x mod 2=0) then s:=s+1;

end;

writeln ('Ответ: ', s);

end.