Предмет: Информатика,
автор: grattttt
очень надоооооооооо паскаль срочнооооооооооооооооооооооооооооооо
Приложения:
Ответы
Автор ответа:
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.
iolandavalerypad353:
А первые это которые слева или которые справа?
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) // 9
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.
Sum1 и Sum2 это переменные, вы же суммы ищете, вот это и есть суммы. Это простое решение через div и mod. Только в программе вам наверное число нужно вводить, то и напишите Readln(a) вместо a = 12345. У меня это для примера.
Похожие вопросы
Предмет: Английский язык,
автор: pepsika7
Предмет: История,
автор: xxxpmvu
Предмет: География,
автор: osmanliismayil5
Предмет: Математика,
автор: Azatrezeda