Var
a:integer;
begin
Read(a);
if (a < 18) then Writeln('Вы не совершеннолетний')
else Writeln('Вы совершеннолетний')
end.
Program q;
var a,b,sum,proiz:integer;
begin
readln(a);
readln(b);
sum:=a+b;
proiz:=a*b;
writeln('Сумма чисел=',sum);
writeln('Произведение чисел=',proiz);
end.
1)Высказывание f должно быть истинным (true), иначе первое выражение становилось бы ложным (false), т.к. применяем дизъюнкцию (одно из высказываний должно быть истинно). 2*2≠5, поэтому второе высказывание ложно. F=true.
2)and - логическое умножение. 2*2=4, высказывание истинно. Чтобы из этого высказывания получить ложное, нужно false ∧ true (второе выражение true). Поэтому B=false.
Ну такое себе объяняю, ну вот так как-то))
1*2^4+1*2^3+1*2^1+1*2^0=16+8+2+1=27
<span>1.Монитор
2.Клавиатура
3.Дисковод
</span>