Урок 18 Задача 01
Primary tabs
Пользователь вводит строку, проверьте является ли она числом, если да, то выведите в ответ это число, иначе сообщите об ошибке.
Решение:
program u18z01; var s:string; n,Code:integer; begin writeln('Vvedite stroku'); readln(s); Val(s,n,Code); if Code = 0 then writeln(n) else writeln('Error'); readln(); end.
Консоль:
Vvedite stroku asdf Error Vvedite stroku 123 123
- Log in to post comments
- 566 reads