{ Обработка текста: Разрешение ввода только цифр }
{--------------------------------------------------------------------------}
{ На входе - текст с цифрами (но будут вводиться только цифры }
{--------------------------------------------------------------------------}
uses crt;
const ENTER=#13;
var c:char;
begin
writeln('Вводите буквы и цифры');
c:=readkey;
while (c<>ENTER) do begin
if c in ['0'..'9'] then write(c);
c:=readkey;
end;
writeln;
end.
Красноярский краевой Дворец пионеров, (c)2006 - 2019, E-mail: admin@acmp.ru