Напишите программу, которая проверяет, является ли введенная строка целым числом.
Решение:
|
1
2 3 4 5 6 7 8 9 10 11 12 13 14 |
program characters_and_strings_8;
uses crt; var s: string; i, n: integer; begin i:=1; write(‘Введите строку > ‘); read(s); while ((ord(s[i])>47)and(ord(s[i])<58))or(ord(s[i])=45)or(ord(s[i])=43) do i:=i+1; if i—1=length(s) then write(‘Строка — целое число’) else write(‘Строка — не целое число’); readkey; end. |