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

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

Задать свой вопрос
Виктория
А массив для чего,
Ева Яновская
???
Камилла
в данной задаче * является элементом массива
Шонтя Регина
и поэтому что так в задачнике сказанно
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 jlt;=n-i+1 then a[i,j]:='*' else a[i,j]:=' ';
for i:=1 to n do
 begin
 for j:=1 to n do write(a[i,j]:2);
 writeln;
 end;
end.

Результат:
 * * * * * * *
 * * * * * *  
 * * * * *    
 * * * *      
 * * *        
 * *          
 *            
Иван Гаюн
ты просто крут
// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программка не работает, обновите версию!

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

Итог
 * * * * * * *
 * * * * * * 
 * * * * *   
 * * * *     
 * * *       
 * *         
 *  
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт