Технический форум - Цикл с условием, Паскаль

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Цикл с условием, Паскаль (http://www.tehnari.ru/f41/t53084/)

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

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

Цитата:

Сообщение от Абай (Сообщение 536856)

Код:

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.