Question

Напишите программу, которая получает с клавиатуры количество повторений и выводит столько же раз какое-нибудь сообщение. Пример: Сколько раз повторить? 3 Привет! Привет! Привет! Делать с помощью ПАСКАЛЯ АВС!!! С ПОМОЩЬЮ ОПЕРАТОРА WILE!

Answer 1

Программа:

Pascal:

var

 count, i: integer;

 st: string;

begin

 write('Сколько раз повторить? ');  readln(count);

 write('Сообщение, которое необходимо повторить: ');  readln(st);

 while i < count do begin

   writeln(st);

   inc(i);

 end;

end.

Answer 2

Для написания программы на Паскале, которая получает количество повторений с клавиатуры и выводит сообщение указанное количество раз, можно использовать оператор "while" (WILE).

Вот пример кода программы:

pascalCopy code
program RepeatMessage;

var
  repeatCount: Integer;
  message: String;

begin
  writeln('Сколько раз повторить?');
  readln(repeatCount);

  writeln('Введите сообщение:');
  readln(message);

  while repeatCount > 0 do
  begin
    writeln(message);
    Dec(repeatCount);
  end;
end.

При запуске программы, она будет запрашивать количество повторений с клавиатуры и затем запрашивать сообщение. Затем она выведет указанное сообщение столько раз, сколько было указано в количестве повторений.