Перевести программу из паскаль турбо в паскаль абс ; uses graphabc; var x0,y0,gd,gm,i: integer; begin gd: =0; initgraph(gd,gm,''); x0: =getmaxx div 2; y0: =getmaxy div 2; for i: =1 to 6 do rectangle(x0-i*10,y0-i*10,x0+i*10,y0+i*10); readln; closegraph end.
Ola1325
1
30.09.2019 00:30
0
Другие вопросы по теме Информатика
Лиззка1904
10.11.2019 20:25
islamkazirbaev
09.07.2019 19:20
Muhammadkhodja
06.10.2019 14:20
yaroslavvorobep016v5
06.10.2019 14:20
Max010507
06.10.2019 14:20
YuKruglova1
06.10.2019 14:20
NekkeR8821
08.06.2019 12:30
Популярные вопросы
- Look and write summer or winter activity.1.2.3.4._ЛУЧШИЙ ОТВЕТ_...
3 - 16. Яки-ми були результати та значення Національно-визвольної війни Нідерландів?...
2 - ЗапишитеПримерыграмматическихошибок впредложениях,составленных вами....
3 - Рішить по прикладу всі завдання >...
2 - Определите степень окисления Ca(po2) 2...
1 - Нужно Решить кроссворд по Английскому ...
1 - Запишите символами время, которое вы видите на картинке:...
3 - Почему в произведении Полтава Калашников, зная, что погибнет вступает в бой...
3 - Как осуществляется обмен в тканях ?...
2 - Что такое дробь? Математика...
3
uses GraphABC;
begin
var (x0, y0) := (Window.Width div 2, Window.Height div 2);
for var i := 1 to 6 do
DrawRectangle(x0 - i * 10, y0 - i * 10, x0 + i * 10, y0 + i * 10);
end.