Задача 1 Урок 17
Primary tabs
Пользователь вводит строку, проверьте является ли она числом, если да, то выведите в ответ это число, иначе сообщите об ошибке.
program U17Z1; var s: string; i,code: integer; begin writeln('vvedite stroku'); readln(s); val(s,i,code); if (code<>0) then writeln('oshibka v poz: ',code) else writeln('chislo = ',i); readln(); end.
- Log in to post comments
- 764 reads