Ответы на вопрос:
Uses graphabc; var i,j: integer; begin setwindowwidth(500); setwindowheight(500); rectangle(30,30,470,470); for i: =0 to 8 do begin line(50,50+i*50,50+8*50,50+i*50); line(50+i*50,50,50+i*50,50+8*50); end; for i: =1 to 8 do for j: =1 to 8 do if odd(i+j) then floodfill(i*50+1,j*50+1,clblack); for i: =0 to 7 do begin textout(70+i*50,453,chr(97+i)); textout(37,70+i*50,chr(56-i)); end; end.
Популярно: Информатика
-
Anton265705.10.2020 07:55
-
ника273524.12.2021 21:13
-
Харли50503.06.2023 12:52
-
Hicoleta29.02.2020 10:52
-
Алекс252113.02.2022 21:26
-
olysenko29012.05.2023 07:31
-
agulmira6215.01.2020 05:37
-
olgagolikova220.10.2020 19:49
-
Behruz200807.06.2023 04:42
-
Бота2008111.06.2022 18:10