Напишите программу, которая запрашивает пять натуральных чисел и выводит 1, если это число нечётное и 0 - - если число чётное.

Question

Кируха

3 ноября, 19:37

+3

Ответы (1)

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

Катюра · Answer 1

Var a, i : integer;

begin

i:=0;

repeat

i:=i+1

read (a) ;

if a mod 2 = 1 then

write (1) else write (0) ;

until (I<5) ;

end.