Поделитесь своими знаниями, ответьте на вопрос:
Есть текст: согласно статистики за 2018-2019 год основными импортируемыми товарами россии являются: машины, оборудование и аппаратура – 30, 4%; продукция промышленности – 12, 7%; транспорт – 11, 1%; металлы и изделия из них – 7, 2%; пластмассы, каучук и резина – 5, 8%; продукты растительного происхождения – 4, 7%; текстиль – 4.6%; пищевые продукты, напитки – 4, 4%; скрытый раздел – 3, 1%; инструменты и аппараты, часы – 3%. измените представления информации, представьте текст в табличном и графическом виде.
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