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

Question

Информатика

Викторик

4 января, 09:31

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

+4

Ответы (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.