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

Публикувано на 05 май, четвъртък от Данаил

Да се отпечатат с числа следните фигури (само че не до 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

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

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

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

  1. Боряна каза:
    05 май, четвъртък в 08:11 
    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.

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