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

spl228 spl228    1   22.05.2019 07:20    28

Ответы
FREDYPAW FREDYPAW  17.06.2020 10:49

Как то так

 

 

 

program pr;
uses crt;

Var i,n,a,s:integer;

Begin

Writeln('Введите. n');
readln(n);
i:=1;
s:=0;
While n<>0 do
Begin
a:=n mod 10;
if (a<>0) and (a<>5) then
Begin
      s:=s+a*i;
      i:=i*10;
end;
n:=n div 10;
end;

Writeln(s);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика