Question

Написать программу,которая выводит на экран имя пользователя 22 раза и перед именем показывает номер имени от 1 до 22. Паскаль.

Answer 1

var a:string;

i:integer;

begin

 writeln('введите имя пользователя');

 read(a);

 for i:= 1 to 22 do

   writeln(i,' ',a);

end.

Answer 2

Вот пример программы на языке Pascal, которая выводит имя пользователя 22 раза, перед каждым именем показывая номер имени от 1 до 22:

pascalCopy code
program PrintUserNames;
var
  UserName: string;
  i: integer;
begin
  // Запрашиваем имя пользователя
  Write('Введите ваше имя: ');
  ReadLn(UserName);

  // Выводим имя пользователя 22 раза с номерами
  for i := 1 to 22 do
  begin
    Write(i, ': ', UserName, ' ');
  end;

  // Чтобы окно консоли не закрылось сразу, ожидаем нажатия клавиши Enter
  ReadLn;
end.

Просто скопируйте этот код в среду разработки Pascal (например, Lazarus) и выполните программу. Она попросит вас ввести имя пользователя, а затем выведет его 22 раза с номерами перед именем.