Фигури с числа

Да се отпечатат с числа следните фигури (само че не до 3, а до произволно N):

  1. * * *
    * * *
    * * *
  2. 1
    2 2
    3 3 3
  3. 1 1 1
    2 2 2
    3 3 3
  4. 1 2 3
    1 2 3
    1 2 3
  5. 3 3 3
    2 2 2
    1 1 1
  6. 1 2 3
    1 2
    1
  7. 1 2 3 4
    4 3 2 1
    1 2 3 4
    4 3 2 1
  8. 1 0 1 0
    0 1 0 1
    1 0 1 0
    0 1 0 1

Не е задължително да се направят всички условия, опитайте се да направите колкото можете от тях.

Публикувано в с етикети . Постоянна връзка.

2 Responses to Фигури с числа

  1. Боряна каза:
    program Project1;
    var
      n, i, j: integer;
    begin
      WriteLn('Figuri s chisla!');
      WriteLn;
      Write('Vavedete chislo N:');
      ReadLn(n);
      WriteLn;
    
      //фигура 1
      for i:=1 to n do begin
        for j:=1 to n do
        Write('*', ' ');
        WriteLn;
      end;
      WriteLn;
      WriteLn('Natisnete Enter za sledvashta figura.');
      ReadLn;
      WriteLn;
    
      //фигура 2
      for i:=1 to n do begin
        for j:=1 to i do
        Write(i, ' ');
        WriteLn;
      end;
      WriteLn;
      WriteLn('Natisnete Enter za sledvashta figura.');
      ReadLn;
      WriteLn;
    
      //фигура 3
      for i:=1 to n do begin
        for j:=1 to n do
        Write(i, ' ');
        WriteLn;
      end;
      WriteLn;
      WriteLn('Natisnete Enter za sledvashta figura.');
      ReadLn;
      WriteLn;
    
      //фигура 4
      for i:=1 to n do begin
        for j:=1 to n do
        Write(j, ' ');
        WriteLn;
      end;
      WriteLn;
      WriteLn('Natisnete Enter za sledvashta figura.');
      ReadLn;
      WriteLn;
    
      //фигура 5
      for i:=n downto 1 do begin
        for j:=n downto 1 do
        Write(i, ' ');
        WriteLn;
      end;
      WriteLn;
      WriteLn('Natisnete Enter za sledvashta figura.');
      ReadLn;
      WriteLn;
    end. 
    

Вашият коментар