Программа выполняется в Паскале! Дано целое число N (> 0). С помощью операций деления нацело и взятия остатка от деления определить, имеются ли в записи числа N нечетные цифры. Если имеются, то вывести True, если нет - вывести False. Помогите плииз.

Question

Информатика

Галка

18 августа, 09:59

Программа выполняется в Паскале! Дано целое число N (> 0). С помощью операций деления нацело и взятия остатка от деления определить, имеются ли в записи числа N нечетные цифры. Если имеются, то вывести True, если нет - вывести False. Помогите плииз.

+3

Ответы (1)

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

Павлюкаша · Answer 1

Var n:integer;

Begin

Read (n) ;

while (n>0) do begin

if (n mod 2 = 1) then begin

writeln (true) ;

exit;

end;

n : = n div 10;

end;

writeln (false) ;

End.