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

Если вы уже прошли строки, то вотprogram summa;var    s: string;    I, sum: integer; begin    sum := 0;    Readln (s);    for i := 1 to (length(s) div 2) do        sum := sum + (ord(s[i]) - 48);    Writeln (sum);end.

Program n1;var s: string;sum,i: longint; beginsum := 0;write('введите число: ');readln (s);for i := 1 to (length(s) div 2) dosum := sum + (ord(s[i]) - 48); writeln ('сумма 1 половины цифр числа равна ',sum);end.