Напишите на Paskal

Введите строку в которой записана сумма натуральных чисел например '1+25+3'

Question

Информатика

Таюша

6 сентября, 07:29

Напишите на Paskal

Введите строку в которой записана сумма натуральных чисел например '1+25+3'

+1

Ответы (1)

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

Армений · Answer 1

Var

i, sum, beg:integer;

str:string;

begin

sum:=0;

beg:=1;

readln (str) ;

for i:=1 to Length (str) do

if str[i]='+' then

begin

sum:=sum+StrToInt (Copy (str, beg, i-beg)) ;

beg:=i+1;

end;

sum:=sum+StrToInt (Copy (str, beg, Length (str))) ;

writeln (sum) ;

end.

Напишите на PaskalВведите строку в которой записана сумма натуральных чисел например '1+25+3'

Напишите на Paskal

Введите строку в которой записана сумма натуральных чисел например '1+25+3'