Question

Каждое новое слово должно выводиться шрифтом на 5 пунктов больше, чем предыдущее. Отрегулируйте расстояние между словами так, чтобы слова при выводе не перекрывали друг друга. (создать программу на Паскаль)

Answer 1

Воспользуемся командой SetFontSize() для изменения размера шрифта. Отрегулируйте расстояние между словами изменением команды TextOut() — к каждому отступу mдобавляем новое значение размера шрифта s.
uses GraphABC;
const sl = 'Программирование';
var n, m, s: integer;
begin
 m := 0;
 s := 0;
 writeln ('Введи n ');
 read(n); writeln (n);
 for var i := 1 to n do
 begin
  SetFontColor(rgb(random(255), random(255), random(255)));
  m := m + 50;
  s := s + 5;
  SetFontSize(s);
  TextOut(0, m + s, sl);
 end
end.