begin
var (n, S) := (ReadInteger, 0);
loop Trunc(Log10(n) + 1) div 2 do
S += n mod 10;
n := n div 10
end;
S.Println
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Если число цифр нечетное, среднюю цифру не учитываем.
PascalABC.NET 3.4.2, сборка 1847 от 28.10.2018
Внимание! Если программа не работает, обновите версию!
begin
var (n, S) := (ReadInteger, 0);
loop Trunc(Log10(n) + 1) div 2 do
begin
S += n mod 10;
n := n div 10
end;
S.Println
end.
12345678
26