Var
B,X:real;
Begin
Write('B = ');ReadLn(B);
Write('X = ');ReadLn(X);
Write('Итоговая стоимость = ',X*B*0.8,' руб.')
End.
X1 x2 x3 x4 x5 x6 x7 F1 1 0 1 1 1 1 01 0 1 0 1 1 0 10 1 0 1 1 0 1 0Какое выражение соответствует F✔) x1 ^ ¬x2 ^ x3 ^ ¬x4 ^ x5 ^ x6^ ¬x72) x1 v ¬x2 v x3 v ¬x4 v ¬x5 v x6 v ¬x7 — не подходит, в первом x1 = 1, 1 v ... = 1.3) ¬x1 v x2 v ¬x3 v x4 v ¬x5 v ¬x6 v x7 — не подходит, в третьем x7 = 1, ... v 1 = 1.4) ¬x1 ^ x2 ^ ¬x3 ^ x4 ^ x5 ^ ¬x6 ^ x7 — не подходит, для второго получается 0 ^ ... = 0.
3. Дан фрагмент таблицы истинности выражения Fx1 x2 x3 x4 x5 x6 x7 F? ? ? 1 ? 0 ? 0? ? ? 0 ? ? 1 10 ? ? 1 ? ? ? 0где знак ? - пустые клеткикаким выражением может быть F?✔) x1 ^ ¬x2 ^ ¬x3 ^ ¬x4 ^ x5 ^ x6 ^ x72) ¬x1 v x2 v x3 v ¬x4 v ¬x5 v ¬x6 v ¬x7 — в последнем x1 = 0, ¬0 v ... = 1.3) x1 ^ x2 ^ ¬x3 ^ x4 ^ x5 ^ ¬x6 ^ x7 — во втором x4 = 0, ... ^ 0 ^ ... = 0. 4) x1 v ¬x2 v ¬x3 v ¬x4 v ¬x5 v ¬x6 v ¬x7 — в первом x6 = 0, ... v ¬0 v ... = 1.
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadArrReal(4);
Writeln('Max=',a.Max,', min',a.Min)
end.
<u>Пример:</u>
-45.4 18 0 4.17
Max=18, min-45.4
Ну типа это WWW это просто обзначает что ты на находишь в глобальной паутине
A = «Число 22 — чётное число» true (истина)<span>
B =«Волк — травоядное животное» f</span>alse (ложь)
Значения логического типа boolean занимают 1 байт и принимают
одно из двух значений, задаваемых предопределенными константами
True (истина) и False (ложь).