Ответы на вопрос:
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.
Объяснение:
Популярно: Информатика
-
adelina1476p0c7y711.01.2020 13:13
-
котик95706.07.2021 22:03
-
Дурень22826.05.2022 19:45
-
Гилязарт04.07.2020 06:30
-
dlazech197913.01.2022 21:34
-
3579448819.01.2022 15:33
-
npodolskaa19129.12.2022 18:43
-
Galia802.10.2021 11:35
-
divinadd1129.12.2022 03:44
-
ученик189027.09.2021 01:13