Напишите программу формирования и вывода массива размером 6х3, каждые три последовательных элемента в строке которого составлены по следующему правилу:
1-й равен квадрату суммы индексов следующего элемента.
2-й равен удвоенной сумме текущих индексов
3-й равен разности двух предыдущих элементов.
Паскаль
Ответы на вопрос
Ответил Аноним
0
// PascalABC.NET 3.2, сборка 1425 от 22.04.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=new integer[6,3];
for var i:=0 to 5 do begin
a[i,0]:=sqr(i+3);
a[i,1]:=2*(i+3);
a[i,2]:=a[i,0]-a[i,1];
end;
a.Println(3)
end.
Результат
9 6 3
16 8 8
25 10 15
36 12 24
49 14 35
64 16 48
// Внимание! Если программа не работает, обновите версию!
begin
var a:=new integer[6,3];
for var i:=0 to 5 do begin
a[i,0]:=sqr(i+3);
a[i,1]:=2*(i+3);
a[i,2]:=a[i,0]-a[i,1];
end;
a.Println(3)
end.
Результат
9 6 3
16 8 8
25 10 15
36 12 24
49 14 35
64 16 48
Ответил Аноним
0
Const
N = 6;
M = 3;
Var
A:array[1..N,1..M] of integer;
i:integer;
Begin
For i:= 1 to N do
Begin
A[i,1]:=sqr(i+2);
A[i,2]:=2*i+4;
A[i,3]:=A[i,2]-A[i,1];
WriteLn(A[i,1]:3,' ',A[i,2]:3,' ',A[i,3]:3);
End;
End.
Результат работы программы:
9 6 -3
16 8 -8
25 10 -15
36 12 -24
49 14 -35
64 16 -48
N = 6;
M = 3;
Var
A:array[1..N,1..M] of integer;
i:integer;
Begin
For i:= 1 to N do
Begin
A[i,1]:=sqr(i+2);
A[i,2]:=2*i+4;
A[i,3]:=A[i,2]-A[i,1];
WriteLn(A[i,1]:3,' ',A[i,2]:3,' ',A[i,3]:3);
End;
End.
Результат работы программы:
9 6 -3
16 8 -8
25 10 -15
36 12 -24
49 14 -35
64 16 -48
Ответил Аноним
0
Понятно, сдвиг по дтагонали
Новые вопросы
Литература,
2 года назад
Информатика,
2 года назад
Литература,
8 лет назад
Математика,
8 лет назад
Физика,
9 лет назад
Литература,
9 лет назад