Язык Паскаль вывести ** экран вот это:* * * * * * ** * * * * * * * * * ** * * ** * ** **с...

Question

Язык Паскаль
вывести на экран вот это:
* * * * * * *
* * * * * *
* * * * *
* * * *
* * *
* *
*
с помощью двумерного массива 7х7
спасайте ребят головка болит уже(плак..плак и хнык..хнык)

Comments

А массив для чего,

---

???

---

в данной задачке * является элементом массива

---

и потому что так в задачнике сказанно

Answer 1

// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=MatrGen(7,7,(i,j)->i<7-j?'*':' ');<br>  a.Println(2)
end.

Результат
 * * * * * * *
 * * * * * * 
 * * * * *   
 * * * *     
 * * *       
 * *         
 *  

Answer 2

Const n=7;
var a:array[1..n,1..n] of char;
i,j:integer;
begin
for i:=1 to n do
 for j:=1 to n do
  if j<=n-i+1 then a[i,j]:='*' else a[i,j]:=' ';<br>for i:=1 to n do
 begin
 for j:=1 to n do write(a[i,j]:2);
 writeln;
 end;
end.

Результат:
 * * * * * * *
 * * * * * *  
 * * * * *    
 * * * *      
 * * *        
 * *          
 *            

Comments

ты просто крут