Даны четыре целых числа. Определить, сколько из них нечетных. Нужно полное решение, не получается.

Question

Информатика

Александрин

18 января, 21:17

Даны четыре целых числа. Определить, сколько из них нечетных. Нужно полное решение, не получается.

+4

Ответы (1)

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

Верка · Answer 1

Чуть-чуть изменил, ты вводишь сначала число с клавиатуры, это N. В твоем случае - 4. Затем пишешь четыре целых числа. Он тебе выдаст количество нечетных.

var a, n, i, k:integer;

begin k:=0;

read (n) ;

while i
read (a) ;

if (a mod 2=1) then k:=k+1;

i:=i+1;

end;

writeln (k) ;

end.