Задача 1 Урок 18
Primary tabs
Пользователь вводит строку, проверьте является ли она числом, если да, то выведите в ответ это число, иначе сообщите об ошибке.
var newInt, errorCode: integer; fromString: string; begin writeln('Введите строку'); readln(fromString); val(fromString, newInt, errorCode); if (errorCode <> 0) then writeln('Ошибка при преобразовании в позиции: ', errorCode) else writeln('Успешно получено число: ', newInt); readln(); end.
КОНСОЛЬ
Введите строку укп3ку32уав Ошибка при преобразовании в позиции: 1
- Log in to post comments
- 744 reads