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

Question

Информатика

Валентион

22 сентября, 00:20

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

+1

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