Напишите программу, которая проверяет, является ли введенная строка целым числом.
Решение:
| 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. |