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

Question

Информатика

Аркадий

8 июня, 17:29

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

+2

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