Придумать две задачи ** использование цикла

Question

Придумать две задачи на использование цикла

Answer 1

1) заполнить и вывести матрицу вида 
       11111
       01110
       00100
       01110
       11111
2)  заполнить и вывести матрицу вида 
   00100
   01110
   11111
   

Comments

мы это еще не проходили

---

var
factorial: longint;
n, i: byte;

begin
write('n = '); readln(n);

factorial := 1;

for i:=2 to n do
factorial := factorial * i;

writeln('n! = ', factorial);

readln;
end.

---

это расчет факториала пример: 7! = 1 * 2 * 3 * 4 * 5 * 6 * 7 = 5040