Вопрос по информатике:
С клавиатуры вводится строка.
Подсчитать и вывести сумму чисел в строке.
Pascal ABC
Пожаловаться
- 03.01.2018 16:24
- Информатика
- remove_red_eye 891
- thumb_up 29
Ответы и объяснения 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
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.
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
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.
Пожаловаться
- 04.01.2018 08:47
- thumb_up 5
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы