Задача 1 Урок 18
Primary tabs
Пользователь вводит строку, проверьте является ли она числом, если да, то выведите в ответ это число, иначе сообщите об ошибке.
program u18z1; var intChislo, Code : Integer; s: string; begin writeln('Vvedite chislo'); readln(s); Val(s, intChislo, Code); if (Code<>0) then writeln('Error') else writeln(intChislo); readln(); end.
- Log in to post comments
- 281 reads