Создай матрицу 765432 65432 5432 432 32 2

// pascalabc.net 3.3, сборка 1547 от 07.10.2017 // внимание! если программа не работает, обновите версию! begin   for var i: =1 to 6 do begin       for var j: =8-i downto 2 do print(j);       writeln       end end. результат 7 6 5 4 3 2 6 5 4 3 2 5 4 3 2 4 3 2 3 2 2

var t: integer;

begin

  read(t);

  while t > 6 do

      t: =t-6;

 

  case t of

      0..2: write('green');

      3: write('yellow');

      4..6: write('red');

  end;

end.

в си:

# include < stdio.h> # include < conio.h> void main ()  {

    clrscr();

    int x,y,c,k;

    printf("vvedite x \n");  

    scanf("%d",& x);

    printf("vvedite y \n");  

    scanf("%d",& y);

    printf("vvedite c \n");  

    scanf("%d",& c);

    k=x+(y/(2*c));

    printf("otvet: %d \n",k);

    getch();

  }