Задача 1 урок 17
Primary tabs
Задача 1 урок 17
Пользователь вводит строку, проверьте является ли она числом, если да, то выведите в ответ это число, иначе сообщите об ошибке.
var I, Code : Integer; R: real; S: string; begin writeln('Vvedite chislo'); readln(S); //записываем число/прочие символы строкой Val(S, I, Code); if (Code=0) then writeln(I) else begin Val(S, R, Code); if (Code=0) then writeln(R) else writeln('Error'); end; readln; end.
- Log in to post comments
- 848 reads