Какое по типу выражение вычисляется в условии оператора if? а) числовое. в) логическое выражение; тип boolean; имеет значения true или false. c) неравенство. d) равенство.
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016 begin var a,b,sgn:integer; var aa,bb,ap,bp:BigInteger; var s:string:=''; Write('Введите числитель и знаменатель дроби: '); Read(a,b); var n:=ReadInteger('Ввведите показатель степени:'); if n=0 then WritelnFormat('({0}/{1})^0 = 1',a,b) else if (a=0) and (b<>0) then WritelnFormat('(0/{0})^{1} = 0',b,n) else begin if a*b<0 then s:='-'; aa:=abs(a); bb:=abs(b); ap:=1; bp:=1; if n>0 then for var i:=1 to n do begin ap*=aa; bp*=bb end else for var i:=1 to -n do begin ap*=bb; bp*=aa end; if bp=1 then WritelnFormat('({0}/{1})^{2} = {3}{4}',a,b,n,s,ap) else WritelnFormat('({0}/{1})^{2} = {3}{4}/{5}',a,b,n,s,ap,bp) end end.
Для простоты обьяснения выберем тройку кораблей которая будет заходить в ответвление. Пускай это будет "Обь", "Восток" и "Петропавловск" - далее А1, А2, А3
Вторая група кораблей будет только ездить туда сюда "Мир", "Енисей" и "Россия" - далее группа В 0) Если надо, корабли группы В задним ходом возвращаются на места, чтоб дать кораблю из группы А заплыть в ответвление 1) Корабль А1 заходит в ответвление 2) Корабли группы В плывут вперед, так чтоб зайти за ответвление и выпустить корабль оттуда 3) Корабль А1 выплывает из ответвления и уплывает
Шаги 0-3 повторяются для всех кораблей группы А
4) Корабли групы В проплывают дальше по освободившемуся каналу
