Question

ИНФА ПЖ ПОМОГИТЕ 50 БАЛЛОВ ПОСТАВИЛ
Задача:

Получите на экране компьютера изображение пирамиды из квадратов.

Формат ввода:

В качестве исходных данных задаются:

минимальная длина стороны квадрата;
количество квадратов;
шаг изменения длины квадрата.
Формат вывода:

Графическое изображение.

Пример входных данных

Минимальная длина стороны квадрата: 20
Шаг изменения длины стороны квадрата: 20
Количество квадратов: 5

Answer 1

uses
  GraphABC;
var
  A,B,C: integer;
begin
  Window.Maximize;
  Writeln('Минимальная длина стороны квадрата: ');Readln(A);
  Writeln('Шаг изменения длины стороны квадрата: ');Readln(B);
  Writeln('Количество квадратов: ');Readln(C);
  var w2 := Window.Width div 2;
  var y := 0;
  for var i:= 0 to C-1 do
  begin
    var x := A + i*B;
    DrawRectangle(w2 - x div 2,y,w2 + x div 2,y+x);
    y += x;
  end;
end.