Pascal, цикл while или repeat

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

Пример, N=123456, результат 6.

Question

Информатика

Лара

5 января, 12:19

Pascal, цикл while или repeat

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

Пример, N=123456, результат 6.

+2

Ответы (2)

Знаете ответ?

Серафим · Answer 1

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.

Антонинка · Answer 2

Если вы уже прошли строки, то вот

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.

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

Pascal, цикл while или repeat

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

Пример, N=123456, результат 6.