Добавить в программу проверку числа - Pascal ABC
Формулировка задачи:
Вот сама программа, нужно сделать так, чтобы, например, при вводе числа 19 в 9й СС выкидывало из программы (exit).
Решение задачи: «Добавить в программу проверку числа»
textual
Листинг программы
writeln('Введите число в соответствии с CC:'); readln(TD); for cs2 := 1 to length(TD) do if not (ord(TD[cs2]) - ord('0') in [0..cs1]) then exit; {...}