Question

Записать задачу на паскаль. Найдите сумму первых 12 членов арифметической прогрессии, заданной формулой а=7-3n. Помогите,пожалуйста!

Answer 1

// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
  Writeln(SeqGen(12,x->7-3*x,1).Sum)
end.

Тестовое решение:
-150

Answer 2

Program n1;
var i:integer;
a:array[1..12] of real;
s:real;
begin
s:=0;
for i:=1 to 12 do
begin
a[i]:=7-3*i;
s:=s+a[i];
end;
writeln(s);
end.

Answer 3

Writing a Pascal Program to Find the Sum of the First 12 Terms of an Arithmetic Progression

To solve this problem, we can write a Pascal program to find the sum of the first 12 terms of the arithmetic progression defined by the formula a = 7 - 3n. Let's break down the steps to achieve this.

1. Defining the Arithmetic Progression: We have the formula for the arithmetic progression: a = 7 - 3n, where 'a' represents the nth term of the progression.

2. Calculating the Sum of the First 12 Terms: We need to calculate the sum of the first 12 terms of the arithmetic progression. This involves finding the values of 'a' for n = 1 to 12 and then summing these values.

3. Writing the Pascal Program: We will write a Pascal program to implement the above steps and find the sum of the first 12 terms of the given arithmetic progression.

Here's a Pascal program to achieve this:

program SumOfArithmeticProgression;

var
  n, a, sum: integer;

begin
  sum := 0;
  for n := 1 to 12 do
  begin
    a := 7 - 3 * n;
    sum := sum + a;
  end;
  writeln('The sum of the first 12 terms of the arithmetic progression is: ', sum);
end.

In this program, we use a for loop to iterate through the values of 'n' from 1 to 12, calculate the corresponding term 'a' using the given formula, and then add it to the running total 'sum'. Finally, we display the sum of the first 12 terms of the arithmetic progression.

Conclusion

The Pascal program provided calculates the sum of the first 12 terms of the arithmetic progression defined by the formula a = 7 - 3n. You can run this program in a Pascal compiler to obtain the desired result.