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

znanija140 znanija140    3   14.09.2019 12:10    35

Ответы
petrachenkov201 petrachenkov201  07.10.2020 14:27
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика