Написать программу: дано натуральное число. верно ли, что данное число начинается на нечетную цифру

Question

Галактион

2 марта, 15:46

+3

Ответы (1)

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

Веня · Answer 1

Var

i, d: integer;

begin

readln (d) ;

while d > 0 do

begin

i : = d mod 10;

d : = d div 10;

end;

write (i mod 2 = 1) ;

end.