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.
И тем не менее до сих пор это животное продолжает оставаться самым большим в мире
...нужен Топор
...огород - лейка
...во льду прорубь
...это еж.
1.Гарри Поттер и Кубок огня.
Дж.яК.Ролинг.
2002 год издания