Урок 18 Задача 1
Primary tabs
Пользователь вводит строку, проверьте является ли она числом, если да, то выведите в ответ это число, иначе сообщите об ошибке.
var a, code : integer; s: string; begin write('Введите число: '); readln(s); val(s, a, code); if not (code = 0) then write ('Ошибка') else write (a); readln(); end.
Вывод в консоли:
Введите число: 344 344
Введите число: dfh345sdg Ошибка
- Log in to post comments
- 219 reads