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

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; begin sum := 0; write('введите число: '); readln (s); for i := 1 to (length(s) div 2) do sum := sum + (ord(s[i]) - 48); writeln ('сумма 1 половины цифр числа равна ',sum); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы