Ответы на вопрос:
как то так
program pr; uses crt; var i,n,a,s: integer; beginwriteln('введите. n'); readln(n); i: =1; s: =0; while n< > 0 dobegina: =n mod 10; if (a< > 0) and (a< > 5) thenbegin s: =s+a*i; i: =i*10; end; n: =n div 10; end; writeln(s); end.
Популярно: Информатика
-
Smolensk14522.11.2020 07:27
-
rushsh101.05.2022 20:46
-
sergo19613.09.2020 23:12
-
NargizzaErbolat08.06.2022 09:59
-
AlenkaPro107.04.2022 17:07
-
egorbelov0615.01.2022 08:20
-
alesiakorneva24.01.2023 20:44
-
кристина216222.05.2021 02:33
-
ZloyFuzz29.10.2021 19:44
-
DellXT17.07.2021 15:14