Question

Нарисуйте песочные часы в поскале

Answer 1

Ответ:

Объяснение:

program Hourglass;

var

 i, j, n: integer;

begin

 write('Введите размер песочных часов: ');

 readln(n);

 for i := 1 to n do

 begin

   for j := 1 to n do

   begin

     if (j >= i) and (j <= n - i + 1) or (j <= i) and (j > n - i + 1) then

       write('*')

     else

       write(' ');

   end;

   writeln;

 end;

end.