С клавиатуры вводится строка.

Подсчитать и вывести сумму чисел в строке.

Pascal ABC

Question

Информатика

Фортунат

5 марта, 10:23

С клавиатуры вводится строка.

Подсчитать и вывести сумму чисел в строке.

Pascal ABC

+1

Ответы (1)

Знаете ответ на вопрос?

Митродора · Answer 1

Var

R, A:real;

S:string;

i, z, L:integer;

Begin

Read (S) ;

S:=' '+S;

L:=Length (S) ;

i:=1;

R:=0;

Repeat

Case S[i] of

'0' ... '9':

Begin

A:=0;

if S[i-1]='-' then z:=1

else z:=0;

While (S[i]in['0' ... '9']) and (i
Begin

A:=A*10+StrToInt (S[i]) ;

i:=i+1

End;

if (i=L) and (S[i]in['0' ... '9']) then A:=A*10+StrToInt (S[i]) ;

if z=0 then R:=R+A

else R:=R-A;

End;

End;

i:=i+1

Until i>L;

WriteLn ('Сумма чисел в строке: ', R)

End.

С клавиатуры вводится строка.Подсчитать и вывести сумму чисел в строке.Pascal ABC

С клавиатуры вводится строка.

Подсчитать и вывести сумму чисел в строке.

Pascal ABC