Question

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

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.