Очень надоооооооооо паскаль срочнооооооооооооооооооооооооооооооо

Question

Очень надоооооооооо паскаль срочнооооооооооооооооооооооооооооооо

---

Answer 1

begin

 var a := 76543210;

 var s := a.ToString.Reverse.JoinIntoString;

 s := (s[1]+s[7]+s[4]+s[3]+s[6]);

 var b := s.ToInteger;

 Print(b)

end.

Comments

А первые это которые слева или которые справа?

---

слева

---

var a, Sum1, Sum2: integer;begin a := 12345; Sum1 := a div 10000 + a div 1000 mod 10 + a div 100 mod 10; Sum2 := a mod 10 + a div 10 mod 10; Writeln('Sum1 = ', Sum1); // 6 Write('Sum2 = ', Sum2) // 9end.

---

можно простой вид?

---

vara, b: integer;beginRead(a);b := a div 100000 mod 10 + 10 * (a div 100 mod 10) + 100 * (a div 1000 mod 10) + 1000 * (a div 1000000 mod 10) + 10000 * (a mod 10);Write(b)end.

---

типо такого

---

крч без sum

---

ладно спасибо вам . я разобрался уже сам

---

!!!!!!!!!!!!!!!!!!!!!!!!!!

---

Sum1 и Sum2 это переменные, вы же суммы ищете, вот это и есть суммы. Это простое решение через div и mod. Только в программе вам наверное число нужно вводить, то и напишите Readln(a) вместо a = 12345. У меня это для примера.