<em>PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ReadReal('Введите число:');
Writeln('Его квадрат ',x*x,', куб ',x*x*x)
end.
<u>Пример</u>
Введите число: -35.432
Его квадрат 1255.426624, куб -44482.276141568
А) а∧b=1∧0=0
б) а∧b∨c=1∧0∨1=0∨1=1
в) (а∨b)∧(c∨b)=(1∨0)∧(1∨0)=1∧1=1
г) а∨b=1∨0=1
д) а∨b∧с=1∨0∧1=1∨0=1
е) не(а∨b)∧(c∨b)=0∧1=0
ж) неа∨b=0∨0=0
и)неа∨b∧с=0∨0∧1=0∨0=0
к)не(а∧b∧c) =не(1∧0∧1)=не 0=1
3) ответ : 2) 13 тк 1 корневой + 3 первых* 4 вторых
4) ответ: 1,2,3
1) "мир" становится в расширение
2) "Енисей" сдает назад
3) "Обь" и "Восток" проходят дальше прохода навстречу "Енисею"
4) "Мир" выходит из расширения
5) "Обь" и и " Восток" сдают назад к прооду
6) "Енисей" становится в проход
7) "Обь" и "Восток" проплывают проход
8) "Енисей" выходи из прохода
если выполнение именно условий выше <em>и</em> левее
ответ а