• Напишите программу формирования и вывода массива размером 6х3, каждые три последовательных элемента в строке которого составлены по следующему правилу:
    1-й равен квадрату суммы индексов следующего элемента.
    2-й равен удвоенной сумме текущих индексов
    3-й равен разности двух предыдущих элементов.
    Паскаль

Ответы 3

  • Понятно, сдвиг по дтагонали
  • // 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
    • Автор:

      candy45
    • 6 лет назад
    • 0
  • Const   N = 6;   M = 3;Var   A:array[1..N,1..M] of integer;   i:integer;BeginFor 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
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years