Написать программу, которая проверяет, является ли введенная с клавиатуры строка целым...

Question

Написать программу, которая проверяет, является ли введенная с клавиатуры строка целым числом

Comments

как обозначается НЕ целое число-запятая или точка?

Answer 1

VAR
   s: String;
   i: LongInt;
BEGIN
   Read(s);

   for i := 1 to Length(s) do 
      if not((Ord(s[i]) > 47)and(Ord(s[i]) < 58)) then begin
      Write(s,' - не является целым число'); Exit; 
   end;

   Write(s,' - целое число'); 
END.

Comments

решение офигенное, вытащил целое значение и все, вот только никак не въеду нафига 47 и 58... это что?

---

Ord() - функция которая возвращает код символа. Код "0" = 48, код "1" = 49, ... , код "9" = 57. Если строка является целым числом, то в ней встречаются только цифры (коды от 48 до 57).