Question

УМОЛЯЮ СРОЧНО!! Даю 50 балов. Дано целое число х. если число кратно 3, то построить зеленую окружность, иначе-построить желтый квадрат. В PascalABC​

Answer 1

uses graphabc;

var

 x: integer;

begin

 setwindowsize(200, 200);

 read(x);

 if (x mod 3 = 0) then  

 begin

   setbrushcolor(clgreen);

   fillcircle(100, 100, 60);

 end

 else

 begin

   setbrushcolor(clyellow);

   fillrectangle(150, 150, 50, 50);

 end;

end.

Answer 2

К сожалению, я не могу выполнить код напрямую, но я могу предоставить вам пример кода на PascalABC, который реализует заданное условие. Ниже представлен пример кода, который проверяет, кратно ли целое число х трём, и в зависимости от результата строит либо зеленую окружность, либо желтый квадрат:

pascalCopy code
uses GraphABC; // Подключаем модуль для работы с графикой

procedure DrawGreenCircle;
begin
  SetBrushColor(clGreen);
  Circle(200, 200, 100);
end;

procedure DrawYellowSquare;
begin
  SetBrushColor(clYellow);
  Rectangle(100, 100, 300, 300);
end;

var
  x: integer;

begin
  Write('Введите целое число x: ');
  Readln(x);

  InitGraph; // Инициализируем графический режим

  if x mod 3 = 0 then
    DrawGreenCircle
  else
    DrawYellowSquare;

  Readln; // Чтобы окно не закрылось сразу после построения фигуры

  CloseGraph; // Завершаем работу с графикой
end.

Обратите внимание, что код использует модуль GraphABC, который обеспечивает работу с графикой в PascalABC. Чтобы код работал, вам нужно убедиться, что модуль GraphABC установлен и настроен правильно на вашем компьютере.