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

Question

Информатика

Прасковья

13 марта, 10:36

Программа выполняется в Паскале! Дано целое число 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.