Код
Создать процедуру(желательно) которая будет извлекать цифры из заданого символьного ряда.
Вот такое нужно сделать.
Program notNumeral;
uses crt;
Var f1,f2: text;
st,fname: string;
Function notnum(st:string):string;
Var i:byte;
num: set of char;
begin
num:=['0','1','2','3','4','5','6','7','8','9'];
For i:=1 to length(st) do
If st[i] in num then delete(st,POS(st[i],ST),1);
notnum:=st
end;
Begin
Writeln('Vvedit rad');
Readln(st);
Writeln(notnum(st));
readln;
End.
Вот такое я реализовал.
Но как мне лучше обойти delete() ? или как его правильно использовать? А то он, помоему и не работает верно.