Из 4 введенных с клавиатуры чисел вывести на печать количество четных чисел, больших 3.

Pascal/10 класс

Question

Валентина

19 ноября, 00:27

+1

Ответы (1)

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

Матфей · Answer 1

Var kol, x, i:integer;

begin

for i:=1 to 4 do begin

read (x) ;

if (x>3) and ((x mod 2) = 0) then inc (kol) ;

end;

writeln (kol) ;

end.

Из 4 введенных с клавиатуры чисел вывести на печать количество четных чисел, больших 3.Pascal/10 класс