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

Question

Информатика

Феодотия

23 октября, 21:48

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

+1

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

кажется так