Ответы на вопрос:
Программа на object pascal: uses crt; var n,s: integer; beginwrite('n='); readln(n); while n> =1 dobegininc(s,n mod 10); n: =n div 10; end; write(s); readln; end.
Популярно: Информатика
-
Vilaan197226.02.2020 00:34
-
KristinkaVayyyys03.07.2022 04:27
-
Felua11.10.2022 10:26
-
Tandy22.12.2020 12:17
-
volden0503.06.2021 07:04
-
utrobin727.02.2023 18:23
-
brody9630.10.2021 14:44
-
Mapгарuтa06.08.2021 05:15
-
RosalinaT1401.03.2022 18:31
-
nagornayka6911.12.2020 14:55