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) // 9 end.
iolandavalerypad353
Sum1 и Sum2 это переменные, вы же суммы ищете, вот это и есть суммы. Это простое решение через div и mod. Только в программе вам наверное число нужно вводить, то и напишите Readln(a) вместо a = 12345. У меня это для примера.
Answers & Comments
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.
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) // 9
end.