За одно повторение без Команды1 он смещается на (1+1,3-2) = (2,1)
За 3 повторения он сместится на (2*3, 1*3) = (6,3)
Последняя команда сместит его в (6+3, 3+9) = (9,12)
Чтобы из 9 и 12 за три повторения сделать 0 и 0 ему нужно смещаться на (-3, -4)
Вариант 3
Что сделать то надо ? напиши, прост я хз
Uses graphabc;
begin
window.Init(0, 0, 800, 600, clwhite);
window.IsFixedSize := true;
var r:=ReadInteger('R=');
var h:=ReadInteger('h=');
pen.Width := 4;
DrawEllipse(100, 100, 100 + r, 100 + r - (r div 2));
line(100, (100 + r - (r div 2) + 100) div 2, 100, ((100 + r - (r div 2) + 100 + h + h) div 2));
line(100 + r, (100 + r - (r div 2) + 100) div 2, 100 + r, ((100 + r - (r div 2) + 100 + h + h) div 2));
DrawEllipse(100, 100 + h, 100 + r, 100 + r - (r div 2) + h);
end.
<em>/ PascalABC.NET 3.2, сборка 1385 от 14.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('Поквартирная численность жильцов');
var a:=ArrRandom(36,1,10); a.Println;
var mx:=a.Max;
Write('Квартиры с максимальным количеством жильцов: ');
a.Select((x,i)->(x,i)).Where(x->x[0]=mx).Select(x->x[1]+1).Println
end.
<u>Пример</u>
Поквартирная численность жильцов
7 9 6 7 8 9 1 4 7 8 8 8 1 7 7 8 3 10 7 7 2 9 7 3 2 8 2 2 10 4 4 5 2 1 7 1
Квартиры с максимальным количеством жильцов: 18 29