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

program while21;
uses crt;
var
  n:integer;
  t:boolean;
begin 
  clrscr;
 
repeat
  write('Введите число ');
  readln(n);
until n > 0;
 
  t:=false; 
 
while n > 0 do
  begin
    if (n mod 2)=1 then t:=true;
    n:=n div 10;
  end;
  write(t);
  readln;
end.

Leave a Comment

57 − 48 =