Составьте метод вычисления суммы (PascalABC): 1+(1+2)+(1+2+3)+...+(1+2+...+10);

Составьте алгоритм вычисления суммы (PascalABC): 1+(1+2)+(1+2+3)+...+(1+2+...+10);

Задать свой вопрос
2 ответа
1+(1+2)=4

var a: array[1..10] of integer;

b: array[1..100] of integer;

i, j, y, n, sum: integer; 

begin

n := 1;

for i := 1 to 10 do a[i] := i;

for j := 1 to 10 do 

for y := 1 to n do begin

b[j] := b[j] + a[y];

n := n + 1;

end;

for i := 1 to 10 do sum := sum + b[i];

writeln(Решением заданной функции является, sum);

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт