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

Pascal/10 класс

Question

Марианка

17 декабря, 18:42

+3

Ответы (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 класс