Измените программу из примера 17.3. длина стороны самого большого квадрата 400, а длина стороны каждого следующего квадрата на x меньше(х вводится). информатика, 8 класс. пример 17.3.: uses graphabc; var a,x1,y1,x2,y2: integer; begin write('введи a= '); read(a); write(a); x1 : = 50; y1 : =
50; x2 : = 450; y2 : = 450; for var i : = 1 to 20 do begin rectangle(x1,y1, x2,y2); x1 : = x1 + a; y1 : = y1 + a; x2 : = x2 - a; y2 : = y2 - a; end; end.

ЯхочуВхогвартс    3   08.10.2019 07:01    15