Могу предложить такой вариант - в цикле repeat число вводится как строка и посимвольно проверяется. если введено неправильно - возвращает на ввод, если правильно - преобразует строку в число для дальнейшей работы.
var a,err: integer; s: string; i: byte; error: boolean; begin repeat error:=true; writeln ('введите число'); readln (s); for i:=1 to length(s) do begin if (ord(s[i])<48) or (ord(s[i])>57) then begin error:=false; writeln ('введено не число'); break; end end; until error=true; val(s,a,err); writeln ('введено число ',a); end.
Пример: введите число 12O введено не число введите число 120 введено число 120
Компьютеры вокруг нас Компьюторы везде! Она почти у каждого человека дома! Они появились где-то в 80-х! И также они выполняют и хорошую роботу! К примеру когда надо сделать Домашнее задание,можно зайти в интернет и посмотреть,Ну если не понятно,И так-же если скучно,можно зайти в интернет и посмотреть видео. Они очень классные. Но бывают из-за них проблемы,пожары,и также компьюторы портят здоровье! Будь осторожен! Компьютеры вокруг нас!
Вот я придумал сам (Ошибки исправишь)
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
