Question

Составить программу на языке Pascal, которая печатает ваше имя заданное число раз.      ( оператор цикла с параметром)

Answer 1

Var s:string;i,n:integer;
begin
read (s);
read (n);
for i:=1 to n do writeln (s);
end.

Answer 2

Var i,b:integer; a:string;
Begin       
WRite('Введите имя - ');       
readln(a);       
write('Введите число - ');       
readln(b);       
for i:=1 to b do       
 writeln(a);       
readln;
end.

Answer 3

Конечно, вот программа на языке Pascal, которая печатает мое имя (в данном случае "ChatGPT") заданное число раз с использованием оператора цикла с параметром:

pascalCopy code
program PrintName;
var
  i, n: integer;
begin
  writeln('Введите количество раз, которое нужно напечатать имя: ');
  readln(n);
  
  for i := 1 to n do
    writeln('ChatGPT');
end.

Эта программа запрашивает у пользователя количество раз, которое нужно напечатать имя, а затем использует цикл for для выполнения этой операции заданное число раз.