55:5=11
365:11≈33(34) берём "34", чтобы перехлестнуть 365.
Так как 11-ый член является замыкающим (перехлёстывающим 365), тогда смотрим по ближайшим:
34*10=340 (340+34=374) - подходит, но это не максимум!
365 mod 10= 36, а это значит, что последующий член будет больше 365, а именно 395.
В задании сказано, что d должно быть максимальным, а "34" - это допустимое, но не максимально число, удовлетворяющее условию, даже минимальное (по результату).
Проверка:
34*11=374, значит, когда на экране выведется s:=340, n:=50, то, зайдя по следующему циклу, получится, что s:= 374, n:=55. На следующий цикл программа не пойдёт.
ответ: d=34.
program z1;
uses graphABC;
begin
SetWindowSize(600,400);
SetWindowTitle('¨ëêà');
SetPenWidth(3);
SetPenColor(clBlack);
Line(250,100,300,50);
Line(300,50,350,100);
Line(350,100,250,100);
FloodFill(300,75,clGreen);
Line(235,200,300,100);
Line(300,100,365,200);
Line(365,200,235,200);
FloodFill(300,175,clGreen);
Line(200,300,300,200);
Line(300,200,400,300);
Line(400,300,200,300);
FloodFill(300,275,clGreen);
MoveTo(0,300);
LineTo(100,350);
LineTo(200,325);
LineTo(400,325);
LineTo(500,350);
LineTo(600,375);
FloodFill(15,375,clLime);
Rectangle(287,300,313,325);
FloodFill(300,315,clBrown);
SetBrushColor(clYellow);
Circle(500,100,50)
end.
Объяснение:
картинка