В строке записанно целое число.При записи этого числа была допущена опичатка: среди цифр находятся посторонние символы.Исправьте строку с опичаткой, удалите лишний символ.
В строке записанно целое число.При записи этого числа была допущена опичатка: среди цифр находятся посторонние символы.Исправьте строку с опичаткой, удалите лишний символ.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы