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

Question

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

13 января, 02:34

+1

Ответы (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.