Пользователь вводит 10 чисел. Определить, сколько из них являются одновременно четными и положительными. (авс паскаль)

Question

Информатика

Сюня

17 января, 03:19

Пользователь вводит 10 чисел. Определить, сколько из них являются одновременно четными и положительными. (авс паскаль)

+3

Ответы (1)

Знаете ответ на вопрос?

Ида · Answer 1

Var a, i, k: integer;

begin

k:=0;

for i = 1 to 10 do

begin

readln (a) ;

if (a>0) and ((a mod 2) = 0) then

k:=k+1;

end;

writeln (k) ;

end.

кажется так