Ответы на вопрос:
1) var x,y: integer; begin readln(x); y: =(abs(x) mod 10)*10+(abs(x) div 10); if x< 0 then y: =-y; writeln(y); end. пример: -25 -52 2) var x,x1,x2,x3: integer; begin readln(x); x: =abs(x); x1: =x div 100; x2: =x div 10 mod 10; x3: =x mod 10; writeln('s = ',x1+x2+x3,' p = ',x1*x2*x3); end. пример: 271 s = 10 p = 14
Популярно: Информатика
-
наталья73206.12.2021 20:29
-
Charafoxcoteyca3403.03.2020 21:46
-
swietajakubiak03.07.2020 01:28
-
Wikwsejjj11.09.2021 16:09
-
lvalerika27.05.2020 20:34
-
Денис2996413.02.2020 11:29
-
milkiweika12321.01.2021 19:12
-
CANDISS106.04.2021 14:49
-
mvrlin16.05.2023 08:54
-
kekngh06.09.2022 12:04