Создать функцию, обеспечивающую ввод с клавиатуры только цифр.

Функция readkey считывает нажатую клавишу, ord возвращает номер нажатого символа (подробнее.).

program klawiat;

uses crt;

function readNum : integer;

var

r : integer;

c : char;

begin

r := 0;

repeat

c := readkey;

if c in['0'..'9'] then

begin

r := r*10 + ord(c) - ord('0');

if r > 0 then write(c);

end;

until r > 100; {ввели трёхзначное число, можно изменить}

end;

var

num : integer;

begin

writeln('Введите число.');

num := readnum;

writeln;

writeln('Ввели : ', num);

readln;

end.

Скачать решение.