задача с предусловием

[freater]

Дано натуральное число n. Определить сумму цифр во второй половине числа и сумму цифр в первой половине числа n.
нарисовать блок схему.

[Аватар]

А если 7 цифр в числе - определить сумму трех с половиной цифр, половина же. Не? Да, а где предусловие?

[freater]

рассчитываем на чётное кол. цифр в числе.
мне сказали, что предусловие,возможно, что по другому решается

[newerow1989]

var n,i,c1,c2:integer;
    s:string;
begin
   n:=914067;
   s:=IntToStr(n);
   c1:=0;
   c2:=0;
   i:=1;
   While i<=Length(s) do
   begin
      If i<=Length(s) div 2 then
         c1:=c1+StrToInt(s[i]) else
         c2:=c2+StrToInt(s[i]);
      i:=i+1;
   end;
   Writeln(c1,'   ',c2);
   Readln;
end.

Сойдет?

[freater]

Сообщение от newerow1989

var n,i,c1,c2:integer;
    s:string;
begin
   n:=914067;
   s:=IntToStr(n);
   c1:=0;
   c2:=0;
   i:=1;
   While i<=Length(s) do
   begin
      If i<=Length(s) div 2 then
         c1:=c1+StrToInt(s[i]) else
         c2:=c2+StrToInt(s[i]);
      i:=i+1;
   end;
   Writeln(c1,'   ',c2);
   Readln;
end.

Сойдет?

да, спасибо