Из данного натурального числа n, удалить все цифры 5 (n вводиться с клавиатуры). Например вводим 25455, выводит 24.

Question

Информатика

Федула

20 декабря, 21:07

Из данного натурального числа n, удалить все цифры 5 (n вводиться с клавиатуры). Например вводим 25455, выводит 24.

+1

Ответы (1)

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

Улита · Answer 1

var s:string;

i:byte;

begin

read (s) ;

if (length (s) = 1) and (s='5') then writeln (' ') else begin

while ilength (s) do

begin

i:=i+1;

if copy (s, i, 1) = '5' then begin delete (s, i, 1) ; i:=i-1; end;

end;

writeln (s) ;

end;

end.