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

Question

Информатика

Сергейка

3 ноября, 20:34

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

+5

Ответы (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.