A)
F=a*(b+c)+a*b+a*c
F=a*(b+c+b+c)
F=a*(b+c)
б)
F=¬(¬a*b+a*(b+¬c))
F=¬(b*(¬a+a)+a*¬c)
F=¬(b+a*¬c)
F=¬b*¬(a*¬c)
F=¬b*(¬a+c)
в)
F=(¬(A+B)*¬A)→¬B
F=(¬A*¬B*¬A)→¬B
F=¬(A+B)→¬B
F=A+B+¬B
F=1
Стандартной функции, на сколько я знаю, нет, вот пример "самодельной" функции, возводящей число x в степень y:
function pow(x, y : integer) : integer;
var i, res : integer;
begin
res := 1;
for i:=1 to y do res := res*x;
pow := res;
end;
Вполне. И мой совет, пользуйся другим текстовым редактором.
Алгоритм - Действия которые нужно выполнить строго в таком порядке , что бы получить желанный результат
var
first, otvet, second: longint;
begin
write('Первое число = ');
readln(first);
write('Второе число = ');
readln(second);
if first < second then
otvet := first + second
else
otvet := second * first;
writeln('Ответ: ', otvet);
end.
//пж отметь как лучший