Цикл с условием, Паскаль

[Абай]

Цикл с условием, Паскаль

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

 

[Vladimir_S]

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

VAR
 N,m,d:LongInt;
 b:boolean;
begin
 Write('N (>0 and <2147483648) = ');
 Readln(N);
 b:=false;
 Repeat
  m:=N mod 10;
  If (m mod 2)=1 then b:=true;
  N:=N div 10;
 Until b or (N=0);
 Writeln(b);
 readln
end.