Циклы Опции

[nSk]

Как сделать вот такую фишку как на этолм рисунке при помощи 2 циклов.
[ звездочкм прстой символ " * " ]

[volvo]

Так?

  for i := 1 to 5 do begin
    for j := 5 - i + 1 downto 1 do write(' ');
    for k := 1 to 2*i - 1 do write('*');
    writeln;
  end;

[nSk]

Точно, спасибо.
Только вот еще один вопрос.. Как ты поставил что-бы у тебя они шли по центру ?

[volvo]

for j := 5 - i + 1 downto 1 do write(' ');

печатает в начале строки пробелы...

[nSk]

А при помощи 2 циклов такое возможно сделать ?

[volvo]

Можно, конечно...

  for i := 1 to 5 do begin
    write('':(5 - i + 1));
    for k := 1 to 2*i - 1 do write('*');
    writeln;
  end;

[nSk]

Спасибо )) , я тут просто паскаль начал изучать.... ))) и нечаенно на ваш хорший форум как то через поисковики попал )))