Дано натуральное число n. Выбросить из записи числа n цифры 0 и 5, оставив прежним порядок остальных цифр. Например, из числа 59015509 должно получится 919

Question

Информатика

Секлетея

1 февраля, 17:32

Дано натуральное число n. Выбросить из записи числа n цифры 0 и 5, оставив прежним порядок остальных цифр. Например, из числа 59015509 должно получится 919

+4

Ответы (1)

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

Христеня · Answer 1

Как то так

program pr;

uses crt;

Var i, n, a, s:integer;

Begin

Writeln ('Введите. n') ;

readln (n) ;

i:=1;

s:=0;

While n0 do

Begin

a:=n mod 10;

if (a0) and (a5) then

Begin

s:=s+a*i;

i:=i*10;

end;

n:=n div 10;

end;

Writeln (s) ;

end.