Составить алгоритм для алёши поповича при выборе дороги в 3 направлениях.прямо пойдёт смерть найдёт в право пойдёт без коня останется в левом пойдёт богатым будет.
Август Кекуле Август Кекуле - немецкий химик мирового значения, открыл химическую формулу бензола. Его избрали почетным членом многие академии мира, с его мнением считались не только ученые, но и промышленники. Просмотров: 9437 Адольф фон Байер Адольф фон Байер - немецкий химик, анализируя обратный процесс, получение индиго путем окисления изатина, впервые сумел синтезировать индиго, сделав, таким образом, возможным его промышленное производство. Просмотров: 6398 Александр Михайлович Бутлеров Александр Михайлович Бутлеров - русский химик, открытая им теория химического строения служит теперь принципиальной основой всех без исключения современных разделов синтетической химии. Просмотров: 11279 Альфред Вернер Альфред Вернер - немецкий химик, открыл оптически активные неорганические изомеры - соединения кобальта, хрома, железа. Это было крупным успехом дальнейшего развития неорганической химии. Просмотров: 6849 Антуан Лоран Лавуазье Антуан Лоран Лавуазье — французский химик, объяснил факт горения, — целый мир явлений окисления, происходящих всегда и всюду — в воздухе, земле, организмах — во всей мертвой и живой природе. Просмотров: 8849
{ 1. Дан массив из n элементов, n не больше 30. отсортировать по возрастанию элементы второй половины }
const n=20; var k,x,i,j: integer; var a: array[1..n] of integer; begin if n mod 2 =0 then k:=(n div 2)+1 else k:=(n div 2)+2; writeln ('Исходный массив'); for i:=1 to n do begin a[i]:=random(100); write (a[i]:3); end; writeln; for i:=k to n-1 do for j:=i+1 to n do if a[i]>a[j] then begin x:=a[i]; a[i]:=a[j]; a[j]:=x end; writeln; writeln ('Измененный массив'); for i:=1 to n do write (a[i]:3); end.
{ Дан массив из n элементов, n не более 30, n-четное. Поменять местами первую и вторую половину }
const n=20; var k,x,i: integer; var a: array[1..n] of integer; begin k:=(n div 2); writeln ('Исходный массив'); for i:=1 to n do begin a[i]:=random(100); write (a[i]:3); end; writeln; for i:=1 to k do begin x:=a[i]; a[i]:=a[i+k]; a[i+k]:=x end; writeln; writeln ('Измененный массив'); for i:=1 to n do write (a[i]:3); end.
пока есть дорога:
идти
если есть развилка:
идти направо