.1 (№ 1486) На бесконечном поле есть горизонтальная и вертикальная стены. Правый конец горизонтальной стены соединён с верхним концом вертикальной стены. Длины стен неизвестны. В каждой стене есть ровно один проход, точное место прохода и его ширина неизвестны. Робот находится в клетке, расположенной непосредственно в углу под горизонтальной стеной и слева от вертикальной стены. НАПИШИТЕ ДЛЯ РОБОТА АЛГОРИТМ

uses graphabc,crt; const t=500;

beginsetwindowsize (600, 600); setpencolor (clblack); setbrushcolor (clblack); rectangle (45, 45, 105, 225 ); setpencolor (clred); setbrushcolor (clred); circle (75, 75, 25); setpencolor (clyellow); setbrushcolor (clyellow); circle (75, 130, 25); setpencolor (clgreen); setbrushcolor (clgreen); circle (75, 185, 25); setpencolor (clblack); setbrushcolor (clblack); rectangle (70, 225, 80, 300); setbrushcolor (cldkgray); circle (75, 130, 25); setbrushcolor (clgreen); circle (75, 185, 25);

repeatsetbrushcolor (cldkgray); circle (75, 185, 25); setbrushcolor (clred); circle (75, 75, 25); delay(t); setbrushcolor (cldkgray); circle (75, 75, 25); setbrushcolor (clyellow); circle (75, 130, 25); delay(t); setbrushcolor (cldkgray); circle (75, 130, 25); setbrushcolor (clgreen); circle (75, 185, 25); delay(t); until keypressed;

end.

qbasic не знаю, знаю только вижуал бэйсик

for i = 1 to 10

  a(i) = i

next i

for i = 1 to 5

  b = a(10+1-i)

  a(10+1-i) = a(i)

  a(i) = b

next i

s = 0;

for i = a to b

  if (i mod 2 =1) and (i mod 3 = 0) then

          s = s + 1

  end if

next i

а:       где хотите, там и бранитесь, а на табаке помиритесь.

б:       умел ошибиться, умей и поправиться.

в:       рожь кормит сплошь, а пшеничка по выбору.

г:       всякая птица свое гнездо любит.

д:       широка дорожка ерошке.

е:       и мед горчит, если его много.

ж:     ржавое железо не блестит.

з:       если мало в привозе, то много в запросе.

и:       истина выдерживает проверку опытом.

к:       вода размывает канал в слабом месте.

л:       глупа та птица, которой гнездо свое не мило.

м:     на ходу подметки режет.

н:       где хвост — начало, там голова — мочало.

о:       всякой молодец на свой образец.

п:       закон — что паутина: шмель проскочит, а муха увязнет.

р:       дело сделал на копейку, а раструбил на всю деревню.

с:     долгие сборы на короткий век.

т:     юность — время золотое: ест, и пьет, и спит в покое.

у:     шито-крыто, а узелок-то тут.

ф:   два фонаря на пустой каланче.

х:     как не хитри, а правды не перехитришь.

ц:     цветет старость сединою.

ч:     к мягкому воску печать, к молодому – ученье.

ш:   шумит дубровушка к погодушке.

щ:   сигарета — щелчок по легким, бутылка пива — удар по почкам,           рюмка водки — убийство печени, кусок сала — прессинг желудка.

э:     каково эхо, такова и конюшня.

ю:   верный вассал двум сюзеренам не служит.

я:     откладывать в долгий ящик.

цели создания модели бывают такие:

сохранить информацию о наблюдаемом объекте

передать информацию о нём другим людям

показать,как может выглядеть проектируемый объект

испытать на модели работу объекта ,если испытание объекта-оригинала

опасно или дорого

решить