Проверка дали е цифра

Публикувано на 05 март, понеделник от Данаил
Да се въведе символ и да се изведе TRUE ако е арабска цифра и FALSE, ако не е.
Публикувано в 9в с етикети . Постоянна връзка.

One Response to Проверка дали е цифра

  1. I.Ivanov каза:
    05 март, понеделник в 13:58 
     program Cifri;
Var
Simvol:Char;
Proverka:Boolean;

begin
WriteLn ('Vuvedete Simvol');
ReadLn (Simvol);
Proverka:=(Simvol >='0') and (Simvol<='9');
WriteLn ('Dali e cifra ', proverka) ;
ReadLn;
end.

Вашият коментар