Не знаю как решить с помощью дерева, но ответы дать могу,
52) сумма чисел будет равна 50
71) будет выведено 10 звёздочек
Внизу результаты выполнения двух программ соответственно, может чем-то поможет.
Ответ:
Конъюнкция
Объяснение
Конъюнкция - это сложное логическое выражение, которое считается истинным в том и только том случае, когда оба простых выражения являются истинными, во всех остальных случаях данное сложенное выражение ложно. Логическое "и" (умножение).
Обозначается символами &, ^, * и др.
Подчеркни "по обычной почте" , "по электронной почте" и "позвонить по телефону".
Program Zilly;
uses crt;
const n=10;
var
a,b,c:real;
tup,pryam:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
tup:=0;
pryam:=0;
writeln('Введите стороны треугольника');
write('А = '); readln(a);
write('B = '); readln(b);
write('C = '); readln(c);
a:=a*a;
b:=b*b;
c:=c*c;
if a=b+c then pryam:=1;
if b=a+c then pryam:=1;
if c=a+b then pryam:=1;
if a>b+c then tup:=1;
if b>a+c then tup:=1;
if c>a+b then tup:=1;
if tup=1 then writeln('Треугольник тупоугольный')
else
if pryam=1 then writeln('Треугольник прямоугольный')
else writeln('Треугольник остроугольный');
end.
1.
var x,y:real;
begin
write('x = ');
readln(x);
y:=7*x+5;
writeln('y = ',y);
end.
Пример:
x = 9
y = 68
5.
var a,b,c:real;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
c:=sqrt(a*a+b*b);
writeln('c = ',c);
end.
Пример:
a = 3
b = 4
c = 5
10.
var a,b,c,h,p:real;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
write('h = ');
readln(h);
c:=sqrt(((a-b)/2)*((a-b)/2)+h*h);
p:=a+b+2*c;
writeln('p = ',p);
end.
Пример:
a = 12
b = 6
h = 4
p = 28
