Question

Как вывести 5 раз окно сообщений в паскаль

Answer 1

5 раз спрашивает ввод с клавиатуры, потом выходит из цикла

program v1;

var n,kol:integer;

 begin

   kol:=1;

   readln(n);

   repeat

   readln; if n>0 then kol:=kol+1;

   until kol=5;

 end.

Answer 2

Вот пример кода на языке программирования Pascal, который выводит окно сообщений 5 раз:

pascalCopy code
program ShowMessageBox;
uses
  Windows;

var
  i: Integer;

begin
  for i := 1 to 5 do
  begin
    MessageBox(0, 'Это окно сообщения ' + IntToStr(i), 'Заголовок', MB_OK);
  end;
end.

Этот код использует функцию MessageBox из библиотеки Windows API для вывода окна сообщения. Он выполняет цикл с пятью итерациями и каждый раз вызывает MessageBox с разным текстом сообщения и заголовком.

Обратите внимание, что для компиляции и выполнения этого кода вам потребуется среда разработки, поддерживающая язык Pascal, и библиотека Windows API для работы с окнами сообщений.