дано естественное число namp;gt;9 найти сумму цифр во 2-ой половине этого

Если число цифр нечетное, скажем, не 8, а 7? Тогда как половину определять? Половина - это 3 числа, либо 4 числа?

Если при нечетном количестве цифр половина - это большая часть, то можно написать программку так: var n,k,s: integer;begin readln(n); k:=1; while k*k s:=0; while n>k do begin s:=s+n mod 10; n:=n div 10; end; writeln(s);end.

Строка не записалась, заместо строчки while k*k s:=0; обязано быть while k*k

Не прописывает знаки, добавлю в ответ.

Если число цифр нечетное, среднюю цифру не учитываем.

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

Если число цифр нечетное, то половиной считаем большую часть.

var n,k,s: integer;

begin

 readln(n);

 k:=1;

 while k*klt;n do k:=k+1;

 s:=0;

 while ngt;k do

 begin

   s:=s+n mod 10;

   n:=n div 10;

 end;

 writeln(s);

end.