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

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

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

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

  1. kaloyan каза:
    VAR n,i,j:integer;
    
    BEGIN
      write('Vavedi chislo: '); readln(n);
    
      write('1.');
        for i:=1 to n do begin
        if i>1 then write('  ');//Отлечатва интервал, за да се подредят числата след това, както е показано в условието на задачата(програмата)
          for j:=1 to n do
            write(j);
        writeln;
        end;
    writeln;
      write('2.');
        for i:=1 to n do begin
        if i>1 then write('  ');
          for j:=1 to n do
            write(i);
        writeln;
        end;
    writeln;
      write('3.');
        for i:=n downto 1 do begin
        if i<n then write('  ');
          for j:=1 to n do
            write(i);
        writeln;
        end;
    
    readln;
    END.

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