Вы используете устаревший браузер. Этот и другие сайты могут отображаться в нем неправильно.
Необходимо обновить браузер или попробовать использовать другой.
B правой части каждого сообщения есть стрелки ⇧ и ⇩ . Не стесняйтесь оценивать ответы. Чтобы автору вопроса закрыть свой тикет, надо выбрать лучший ответ. Просто нажмите значок ✔ в правой части сообщения.
☀️ Специальное летнее предложение «Основы Python» + «Python Ethical Hacking» всего за 44.990р Не упусти возможность получить двойную выгоду: приобрети пакет курсов «Основы Python» + «Python для пентестера» со скидкой 20% только до 13 июля. Обучающая программа гарантирует комфортную нагрузку и получение необходимого объёма знаний. Ты пройдёшь путь от новичка до специалиста всего за 5 месяцев! Запишись со скидкой у менеджера
Источник: codeby.net
Первая песня моей дочки Мирославы! Релиз 7 июля!
Какие слова можно составить из слова самолет?
Из слова САМОЛЕТ можно составить слова :мот ,лот ,тол, тело ,мат ,там ,сам, мол , лом , сало ,масло ,лето , тема ,мета ,стол,ласт ,лес ,село ,мел ,мало ,ласт ,ом ,смола ,смело ,том ,мост ,место , смета ,омлет ,атом ,Атос ,сет ,сто ,сом .
модератор выбрал этот ответ лучшим
комментировать
в избранное ссылка отблагодарить
Oleg7 4 [207K]
10 лет назад
Из слова САМОЛЕТ составим такие разнообразные слова :
ас, слет, лета, лет, тело, лот, тол, атом, мот, ом, мат, ат, том, тема, лом, мол, сало, село, сет, сота, сот, ост, отел, лето, смола, ласт, лат, моа.
комментировать
в избранное ссылка отблагодарить
ZoRRo O [91.7K]
8 лет назад
Самолет — хорошее слово. Я часто из него составлял другие слова. Помню даже в одной из передач «Звездный час» было такое слово «самолет» и нужно было составить как можно больше слов из него. Я составил следующие: лес, масло, лето, село, сало, стол, место, сто, метла, оса, осел, ласт, атом, омлет, тема, олеат, мост.
Источник: www.bolshoyvopros.ru
Самолёт — Pascal ABC
Нарисовать самолёт летящий вдоль экрана и бросает бомбы. Бомб может быть на экране несколько одновременно. Помогите,а то с графикой напряг полный. Спасиба всем кто немного мне поможет.
Код к задаче: «Самолёт»
Листинг программы
uses graphABC; const bu: array [1..5] of integer =(200,400,600,800,1000); var x0:integer; kb: array [1..2,1..5] of integer; gorod: array [1..100,1..4] of integer; procedure Gengorod; var i,kx,ky: integer; begin for i:=1 to 100 do begin kx:=random(900); ky:=random(150)+450; gorod[i,1]:=kx-5-random(30); gorod[i,2]:=ky-10-random(100); gorod[i,3]:=kx+5+random(30); gorod[i,4]:=ky+10+random(100); end; end; procedure Fon; var i: integer; begin clearwindow(clskyblue); setpencolor(clnavy); setbrushcolor(clnavy); rectangle(0,420,900,450); setpencolor(clblack); setbrushcolor(clblack); rectangle(0,450,900,500); for i:=1 to 100 do rectangle(gorod[i,1],gorod[i,2],gorod[i,3],gorod[i,4]); setpencolor(clyellow); setbrushcolor(clyellow); circle(800,100,30); setpencolor(clgray); setbrushcolor(clgray); rectangle(0,500,900,600); end; procedure Airplane(x: integer); var i: integer; begin setpencolor(clgray); setbrushcolor(clgray); ellipse(x-80,80,x+90,110); setpenwidth(9); line(x-40,100,x+10,60); line(x-30,100,x+15,60); line(x-20,100,x+20,60); setpencolor(clltgray); line(x-30,100,x+10,130); line(x-20,100,x+15,130); line(x-10,100,x+20,130); setpenwidth(1); roundrect(x+20,90,x+40,110,5,5); setpencolor(clgray); setpenwidth(8); line(x-30,100,x+10,130); line(x-20,100,x+15,130); line(x-10,100,x+20,130); setpenwidth(1); rectangle(x+70,70,x+89,100); end; procedure Bomb(x,y: integer); begin if y0 then begin kb[1,i]:=kb[1,i]-1; kb[2,i]:=kb[2,i]+1; end; Bomb(kb[1,i],kb[2,i]); if (kb[2,i]>=450) and (kb[2,i]<=500) then Kaboom(bu[i]-300,450); end; end; begin Gengorod; lockdrawing; setwindowsize(900,600); repeat for x0:=-200 to 1200 do begin Fon; Airplane(1100-x0); Bombs(1100-x0); sleep(10); redraw; end; until false; end.
Источник: studassistent.ru