Question

99 БАЛЛОВ!!!! Помогите пожалуйста написать программу в PascalABC ТОЛЬКО С ПОМОЩЬЮ ЦИКЛА!!!

Answer 1

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

uses GraphABC;

begin
  Window.SetSize(550,160);
  var (x,y):=(50,75);
  Loop 10 do begin
    DrawCircle(x,y,10);
    DrawCircle(x,y,35);
    DrawCircle(x,y,40);
    x+=50
    end
end.