Var
a, n, i: integer;
r: longint;
begin
r := 1;
readln(a, n);
for i := 1 to n do
r := r * a;
write(r);
end.
1)Высказывание f должно быть истинным (true), иначе первое выражение становилось бы ложным (false), т.к. применяем дизъюнкцию (одно из высказываний должно быть истинно). 2*2≠5, поэтому второе высказывание ложно. F=true.
2)and - логическое умножение. 2*2=4, высказывание истинно. Чтобы из этого высказывания получить ложное, нужно false ∧ true (второе выражение true). Поэтому B=false.
Ну такое себе объяняю, ну вот так как-то))
(64*256)/128=128
решение легко записать. Сам подумай
Var a,b,c,p:integer;
s,p1:real;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
writeln(c);
readln(c);
p:=a+b+c;
p1:=(a+b+c)/2;
s:=sqrt(p1*(p1-a)*(p1-b)*(p1-c));
writeln('perimetr=',p,' plosciadi=',s);
readln;
end.
F=A*¬B - А и В зависят от 6-ти переменных, в таблице истинности будет:
2^6 =64 строки
В условии сказано, что А=1 и В=1 в пяти соответствующих строках (¬В=0).
Значение F=A*¬B=1*0=0, то есть достоверно известно,
что F=0 ровно в пяти строках .
В остальных (64-5=59) 59-ти возможно, что F=1.
ответ 59