// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
5.To(12).Tabulate(x->x*x+1).Println
end.
<u><em>Результат:</em></u>
(5,26) (6,37) (7,50) (8,65) (9,82) (10,101) (11,122) (12,145)
Ответ:
Обработки информации процессором.
Var const n=7;
I,sum:integer;
B:array[1..N] of integer;
Begin
Sum:=0;
For I:=1 to N do
Readl B[I];
For I:=1 to N do
Begin
If I mod 2=0 then
sum:=sum+B[i];
End;
Writeln(sum);
End.
Const
N = 10;
Var
A:array[1..N] of integer;
i,b:integer;
Begin
Write('b = ');ReadLn(b);
Write('Введите массив: ');
For i:= 1 to N do
Read(A[i]);
Write('Новый массив:');
For i:= 1 to N do
Begin
A[i]:=A[i]-b;
Write(' ',A[i])
End;
End.
Const
N = 10;
Var
A:array[1..N] of integer;
i:integer;
Begin
Write('Введите массив: ');
For i:= 1 to N do Read(A[i]);
Write('Новый массив:');
For i:= 1 to N do
Begin
A[i]:=A[i]-A[N];
Write(' ',A[i])
End;
End.
Програмку написал на случай, если прибыль за год будет добавляться ко вкладу каждый год для увеличения самого вклада.