Var s,sd:string; i,n,sum,d,err:integer; begin Writeln('Введите строку для суммирования'); Read(s); sum:=0; n:=Length(s); if n>0 then begin i:=2; sd:=s[1]; while i<=n do begin if s[i]<>'+' then sd:=sd+s[i] else begin Val(sd,d,err); sum:=sum+d; sd:='' end; Inc(i); end; Val(sd,d,err); sum:=sum+d end; Writeln('Сумма равна ',sum) end.
Тестовые примеры: Введите строку для суммирования 1+25+3 Сумма равна 29
Введите строку для суммирования 143+38+253+62 Сумма равна 496
№1 а) №4, №2, №5, №3, №6, №1. б)№2, №1, №3, №4, №6, №5. №2 тип №3 четвёртая запись №4 фамилия адрес тип название срок 1 Петров пр. Парковый 2-10 газета Известия 6 2 Иванова ул. Подлесная 11-14 журнал Крестьянка 3 3 Соколов ул. Строителей 8-5 газета Комсомольская правда 12 4 Федоров пр. Парковый 4-16 журнал Огонек 6 5 Яковлев ул. Подлесная 7-25 газета Комсомольская правда 6 6 Юсупова ул. Строителей 8-13 газета Известия 3 7 Юровский пр. Парковый 2-10 газета Известия 6 8 Корытько ул. Подлесная 7-25 газета Комсомольская правда 6 9 Худецкая пр. Парковый 2-10 газета Известия 6 10 Тагиров ул. Подлесная 7-25 газета Комсомольская правда 6
s,sd:string;
i,n,sum,d,err:integer;
begin
Writeln('Введите строку для суммирования');
Read(s);
sum:=0;
n:=Length(s);
if n>0 then begin
i:=2; sd:=s[1];
while i<=n do begin
if s[i]<>'+' then sd:=sd+s[i]
else begin
Val(sd,d,err);
sum:=sum+d;
sd:=''
end;
Inc(i);
end;
Val(sd,d,err);
sum:=sum+d
end;
Writeln('Сумма равна ',sum)
end.
Тестовые примеры:
Введите строку для суммирования
1+25+3
Сумма равна 29
Введите строку для суммирования
143+38+253+62
Сумма равна 496