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
Zebra198383
16.11.2021
// PascalABC.NET 3.2, сборка 1399 от 08.03.2017 // Внимание! Если программа не работает, обновите версию!
procedure L(s:sequence of integer); begin s.Print(','); Writeln(': S=',s.Sum,', П=',s.Aggregate(BigInteger(1),(p,q)->p*q)) end;
begin var n:=ReadInteger('n='); L(Range(1,2*n-1,2)); L(Range(2,2*n,2)); L(Range(3,3*n,3)); L(Range(4,4*n,4)) end.
Проявленная информация может восприниматься сознанием человека и через его органы чувств. Проявленная информация присуща всем формам материального существования: высказывание человека, картина художника, книга, изображение на мониторе, звук в наушниках и т.д. Проявленная в вещественном мире информация может быть отраженной (без изменений) или отображенной – с изменением структуры и смысла в результате информационных преобразований и взаимодействий. Посредством компьютерных устройств объект восприятия (адресат) преобразует (получает) отображенную информацию в виде печатной, видео-, аудио- и другой информации.
Творящая информация рассматривается как сознание, характерна только для живых систем и включает стимулировать развитие (творение) систем.
В информатике информация – связанные между собой сведения об объектах и явлениях окружающего мира. В процессе своей деятельности человек постоянно сталкивается и работает с той или иной информацией. Такую информацию можно рассматривать с точки зрения ее представления, места возникновения, стадии обработки и т.д. По представления можно выделить следующие виды информации
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Паскаль авс введите строку, в которой записана сума натуральных чисел, например, "1+25+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