uses graphABC;
var i,d:integer;
begin
setwindowsize(540,460);
centerwindow;
d:=20;
for i:=0 to 28 do
begin
line(0,i*d,540,i*d);
line(i*d,0,i*d,460);
end;
setpenwidth(3);
moveto(d,13*d);
lineto(3*d,11*d);
lineto(4*d,8*d);
lineto(7*d,6*d);
lineto(11*d,5*d);
lineto(15*d,2*d);
lineto(17*d,3*d);
lineto(21*d,3*d);
lineto(23*d,2*d);
lineto(25*d,4*d);
lineto(25*d,8*d);
lineto(22*d,10*d);
lineto(21*d,8*d);
lineto(21*d,12*d);
lineto(20*d,13*d);
lineto(17*d,13*d);
lineto(17*d,12*d);
lineto(19*d,12*d);
lineto(20*d,11*d);
lineto(18*d,9*d);
lineto(17*d,9*d);
lineto(16*d,8*d);
lineto(15*d,10*d);
lineto(12*d,8*d);
lineto(11*d,5*d);
moveto(d,13*d);
lineto(4*d,11*d);
lineto(5*d,14*d);
lineto(4*d,18*d);
lineto(7*d,18*d);
lineto(7*d,17*d);
lineto(8*d,17*d);
lineto(7*d,13*d);
lineto(12*d,13*d);
lineto(12*d,19*d);
lineto(15*d,19*d);
lineto(15*d,14*d);
lineto(16*d,14*d);
lineto(16*d,15*d);
lineto(15*d,17*d);
lineto(17*d,19*d);
lineto(19*d,15*d);
lineto(19*d,13*d);
setbrushcolor(clBlack);
circle(17*d,6*d,d div 2);
circle(21*d,6*d,d div 2);
end.
Объяснение:
каждая строка это новый номер
Поделитесь своими знаниями, ответьте на вопрос:
Фрагмент алгоритму, у якому одна або кілька команд можуть виконуватися більше ніж один раз, називають циклом циклопом спрайтом проектом розгалуженням лічильником
1)Еще недавно, говоря о роботах, мы имели в виду научную фантастику или сильно отдаленное будущее. Но технологический процесс с невообразимой скоростью меняет окружающий мир, заставляя меняться нас и наши подходы к образованию детей. Робототехника на сегодняшний день является самым перспективным из инновационных направлений.
Ведущие эксперты прогнозируют бум сервисной и персональной робототехники уже к 2025 году, а это означает, что потребуются десятки тысяч специалистов новой формации. Самой востребованной специальностью после 2025 года будут программисты-робототехники. И начинать осваивать новые профессии нужно уже сейчас, чтобы сегодняшние школьники могли уверенно войти в жизнь.
2)Ро́бот — автоматическое устройство, предназначенное для осуществления различного рода механических операций, которое действует по заранее заложенной программе.
3)По прогнозам консалтинговой компании A.T. Kearney уже через 20 лет некоторые рабочие места, на которых работают люди, займут роботы. DW выяснила, в каких отраслях искусственный интеллект будет конкурировать с человеком.
Объяснение: