Предмет: Информатика,
автор: mira18061910
Напишите программу, которая запрашивает пять натуральных чисел и выводит 1, если это число нечётное и 0 -- если число чётное.
Ответы
Автор ответа:
0
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.
begin
i:=0;
repeat
i:=i+1
read(a);
if a mod 2 =1 then
write(1) else write(0);
until (I<5);
end.
Похожие вопросы
Предмет: Геометрия,
автор: egorichpankovich
Предмет: Математика,
автор: quvontayevabegzada
Предмет: Английский язык,
автор: erbotabaibolat
Предмет: География,
автор: Svitochka1
Предмет: География,
автор: Gymanoid