Задача 1 Урок 18
Primary tabs
Задача 1 Урок 181. Пользователь вводит строку, проверьте является ли она числом, если да, то выведите в ответ это число, иначе сообщите об ошибке.
var intChislo, Code : Integer; rChislo: real; s: string; begin writeln('ENTER'); readln(s); Val(s, intChislo, Code); if intChislo=0 then writeln('Error') else writeln('This is the number'); readln(); end.
Вывод консоли:
ENTER 1 This is the number
- Log in to post comments
- 138 reads