Ввести число. Определить сумму цифр в первой половине числа .

[Yrec]

Ввести число. Определить сумму цифр в первой половине числа .
Пример, N=123456, результат 6.

[Hacker19_90]

s: string;
i: integer;
sum: integer;
{------------------------------------}
sum := 0;
Readln (s);
for i := 1 to (length(s) div 2) do
     sum := sum + (ord(s[i]) - 48);

[Yrec]

а если не в падлу можешь полность написать код)

[Hacker19_90]

нда

program example;
uses 
    crt;
var
    s: string;
    i: integer; 
    sum: integer;
begin
    clrscr;
    sum := 0;
    Readln (s);
    for i := 1 to (length(s) div 2) do
        sum := sum + (ord(s[i]) - 48);
    Writeln (sum);
    ReadKey;
end.

[Serge_Bliznykov]

кстати, забавно будет выглядеть, если ввести в программу какой-нибудь буквенный текст Ку-ку, например...

[Plague]

Строки тут использовать конечно думаю не зачем...
Задача думаю на числовой тип данных.

var x,y,k,i,s:longint;
begin
  read(x);
  k:=trunc(ln(x)/ln(10))+1;
  i:=0;
  s:=0;
  if k mod 2 =0 then k:=k div 2 else k:=k div 2+1;
  while x<>0 do
    begin
      y:=x mod 10;
      inc(i);
      x:=x div 10;
      if i>k then inc(s,y);
    end;
  write(s); 
end.