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

Question

Информатика

Миша

14 октября, 01:27

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

+2

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