Question

PASCAL ABC построить два окна красным и зеленым цветов, подписать их четные и нечетные. с клавиатуры в цикле в строке 25 вводить цифры от 1 до 9. если число четное, ты выводить его в окно с надписью четные; если число нечетное, ты выводить его в другое окно. выход из цикла - 99

Answer 1

25: 3.9.2...98-1+3.

Answer 2

Вот пример кода на языке Pascal ABC, который выполняет указанные действия:

pascalCopy code
program WindowColor;
uses SwinGame, sgTypes;

var
  evenWindow, oddWindow: Window;
  input: Integer;

begin
  OpenAudio();
  OpenGraphicsWindow('Window Colors', 800, 600);
  LoadDefaultColors();

  evenWindow := CreateWindow('Even Numbers', 50, 50, 300, 400);
  oddWindow := CreateWindow('Odd Numbers', 400, 50, 300, 400);

  repeat
    WriteLn('Enter a number from 1 to 9 (or 99 to exit): ');
    ReadLn(input);

    if (input >= 1) and (input <= 9) then
    begin
      if input = 99 then
        break; // Exit the loop if input is 99

      ClearWindow(evenWindow, ColorWhite);
      ClearWindow(oddWindow, ColorWhite);

      if input mod 2 = 0 then
        DrawText('Even: ' + IntToStr(input), ColorRed, 'Arial', 24, 50, 50, evenWindow)
      else
        DrawText('Odd: ' + IntToStr(input), ColorGreen, 'Arial', 24, 50, 50, oddWindow);

      RefreshScreen(60);
      Delay(1000);
    end;
  until input = 99;

  CloseAudio();
  CloseGraphicsWindow();
end.

Программа создает два окна, одно для четных чисел (красное окно) и другое для нечетных чисел (зеленое окно). В цикле программа ожидает ввода чисел от 1 до 9. Если введенное число является четным, оно выводится в окно с надписью "Even" (четные). Если число нечетное, оно выводится в окно с надписью "Odd" (нечетные). Выход из цикла осуществляется при вводе числа 99.

Обратите внимание, что для выполнения программы может потребоваться установка SwinGame — библиотеки для работы с графикой и звуком на языке Pascal.