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

Категория: Delphi/Pascal
2013-02-17 21:51:18
code: #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.

автор: Oleg Voloshin

Поделиться:

Похожие статьи:

теги: деление, целое