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

Question

Информатика

Веля

10 декабря, 11:07

Дано натуральное число 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.