Question

Помогите, пожалуйста.
Нужно составить программу ( на паскаль) которая рисует отрезок с концами (100,100),(100,200), если введено чётное число и рисует окружность (200,100) радиус 50, если введено нечётное число​

Answer 1

Ответ:

program draw_shape;

uses Graph;

var

gd, gm, x, y, radius, number: Integer;

begin

Write('Enter a number: ');

Readln(number);

gd := detect;

initgraph(gd, gm, '');

if (number mod 2 = 0) then

begin

x := 100;

y := 100;

line(x, y, x, y + 100);

end

else

begin

x := 200;

y := 100;

radius := 50;

circle(x, y, radius);

end;

readln;

closegraph;

end.

Объяснение:

пожалуйста сделай ответ лучшим)