Помогите написать программу на паскале - вопрос №858603
как вывести введенный текст удалив из него все цифры? это тоже последовательность, выполняется до тех пор пока пользователь не введет точку. Написать тоже на паскале без массивов.
program pr;
uses crt;
var ch:char;
begin clrscr;
writeln('вводите текст, окончание — точка');
repeat
ch:=readkey;
if not(ch in ['0','1','2','3','4','5','6','7','8','9'])
then write(ch);
until ch='.';
end.