Регистрация
LyVlAr
24.05.2022 06:58
Информатика
Есть ответ 👍

Составить рисунак в програме pascal abc

199
470
Посмотреть ответы 2

Ответы на вопрос:

oraevadiana
oraevadiana
4,6(55 оценок)

 

program pr; uses crt, graphabc; var driver,mode : integer; beginsetwindowwidth(1024); setwindowheight(600); setpencolor(clblack); rectangle(100,100,400,400); rectangle(150,150,200,300); rectangle(300,150,350,300); rectangle(375,99,340,10); line(100,100,250,10); line(250,10,400,100); circle(600,50,50); floodfill(600,50,clblue); circle(250,65,30); floodfill(250,65,clred); setpencolor(clblue); rectangle(225,150,275,300); line(250,150,250,300); line(175,150,175,300); line(325,150,325,300); setpencolor(clred); circle(600,300,25); circle(575,340,25); circle(625,340,25); circle(550,380,25); circle(600,380,25); circle(650,380,25); end.

 

незнаю подойдет рисунок или нет но делал сам 

wasyr134
wasyr134
4,7(13 оценок)
64сим  *  64строк  *  256стр  *  16бит / 8 бит (чтобы байты получить) /1024 (получаем килобайты) / 8   (получаем мегабайты) = 2 ответ 2 мбайта

Популярно: Информатика