Задача 1 Урок 17
Primary tabs
Урок 17. Явное приведение типа в Паскаль -- преобразование строки в число
{17 - 1 Пользователь вводит строку, проверьте является ли она числом,
если да, то выведите в ответ это число, иначе сообщите об ошибке.}
var s: string; num, code: integer; begin writeln('string -> num'); readln(s); val(s,num,code); if code = 0 then writeln('your string is num now num ',num) else writeln('error code: ', code); readln(); end.
- Log in to post comments
- 405 reads