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.