Программа выполняется в Паскале! Дано целое число N ( больше 0). С помощью операций деления нацело и взятия остатка от деления определить, имеются ли в записи числа N нечетные цифры. Если имеются, то вывести True, если нет — в...
Программа выполняется в Паскале! Дано целое число N (> 0). С помощью операций деления нацело и взятия остатка от деления определить, имеются ли в записи числа N нечетные цифры. Если имеются, то вывести True, если нет — вывести False. Помогите плииз.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы