В строке записанно целое число.При записи этого числа была допущена опичатка: среди цифр...

Question

В строке записанно целое число.При записи этого числа была допущена опичатка: среди цифр находятся посторонние символы.Исправьте строку с опичаткой, удалите лишний символ.

Answer 1

Var s:string;i:integer;
begin
i:=1; read(s);
while i<=length(s) do if (s[i]<'0') or (s[i]>'9') then delete(s,i,1) else i:=i+1;
write(s)
end.