Question

Вывести на экран фигуру из звёздочек (Паскаль) ******* ******* ******* *******

Answer 1

1. const
2.    chars = '*******';
3.    N = 4;
4. var
5.    i: integer;
6. begin
7.    for i := 1 to N do
8.        Writeln(chars);
9. end.

Answer 2

Для того чтобы вывести на экран указанную фигуру из звёздочек в среде программирования Pascal (Delphi), можно воспользоваться вложенными циклами. Вот пример кода, который создаст указанную фигуру:

pascalCopy code
program StarFigure;

const
  Rows = 4; // Количество строк в фигуре
  StarsPerRow = 7; // Количество звёздочек в каждой строке

var
  i, j: Integer;

begin
  for i := 1 to Rows do
  begin
    for j := 1 to StarsPerRow do
      Write('*');
      
    Writeln; // Переход на следующую строку
  end;
end.

Сохраните данный код в файл с расширением .pas (например, StarFigure.pas), скомпилируйте и запустите программу. На экране вы увидите фигуру из звёздочек:

markdownCopy code
*******
*******
*******
*******

Каждая строка состоит из 7 звёздочек, и их количество задаётся константами Rows и StarsPerRow. Если вы захотите изменить размер фигуры, просто поменяйте значения этих констант.