Question

Помогите пожалуйста составить программу для рисования фигуры в Pascal ABC (она прикреплена). Дай бог здоровья тому кто поможет! Не разбираюсь в этом

Answer 1

Программа:

Pascal:

Вводим количество кубиков, а потом программа рисует введённое количество кубиков в окне GraphABC.

uses graphABC;

var n: integer;

begin

 write('Количество кубиков: ');  readln(n);

 setpenwidth(2);

 for var i := 1 to n do

   if i mod 2 = 1 then

     rectangle(i * 100, 350, i * 100 + 100, 450)

   else

     rectangle(i * 100, 350, i * 100 + 100, 250);

end.