Question

Напечатать 15 раз свое имя, используя, оператор цикла со счетчиком. Тип переменной строковый. Цвет текста – голубой. Паскаль!!!

Answer 1

uses crt;

var

 s:string[15];

 i:integer;

begin

 textcolor(lightblue);

 write('Enter your name: '); readln(s);

 for i:=1 to 15 do

   writeln(i,': ',s);

 readln;

end.

Запускать через консоль. Shift + F9

Answer 2

Вот пример кода на Pascal (Delphi), который напечатает ваше имя 15 раз с голубым цветом текста, используя оператор цикла со счетчиком:

pascalCopy code
program PrintName;
uses Crt;

var
  Name: String;
  i: Integer;

begin
  Name := 'Ваше имя'; // Замените 'Ваше имя' на ваше имя
  TextColor(9); // 9 - голубой цвет текста

  for i := 1 to 15 do
  begin
    writeln(Name);
  end;

  Readln;
end.

В этом коде мы используем TextColor(9) для установки голубого цвета текста, а затем запускаем цикл for для вывода вашего имени 15 раз. Замените 'Ваше имя' на свое имя перед выполнением кода.