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

Question

Александрина

4 мая, 22:40

+5

Ответы (1)

Знаете ответ на вопрос?

Тимуня · Answer 1

Var s:string; i:integer;

begin

i:=1; read (s) ;

while i<=length (s) do if (s[i]'9') then delete (s, i, 1) else i:=i+1;

write (s)

end.