Program task2;
var a :array [1..10] of integer; i :integer;
begin
randomize; for i:= 1 to 10 do begin a[i]:= random(100); write(a[i],' '); end;
<span>end.</span>
1.
А) Истина
Б) Истина
В) Ложь
Г) Истина
Д) Ложь
2.
d f d^f d\/f -d -f
1ложь ложь ложь ложь истина истина
2ложь истина ложь истина истина ложь
3истина ложь ложь истина ложь истина
4истина истина истина истина ложь ложь
Var f,g,e:integer;
a,x,w,h:real;
begin
readln(f,g,e);
a:=((power(f-g,3)-7)/power(g+e,2))-7*((e*f-power(f,2*(g/3)))/(25-g));
writeln(a:10:8);
x:= (power(43,2)*a)-power(42,2)*(g/27.3)+((16+g)/(g-e));
writeln(x:10:8);
w:=(x/100)+(power(25,2)/x)+(a/(3*f))-((g+power(e,2))/(e+power(g,2)));
writeln(w:10:8);
h:=g-power(f,2)-((7*power(e,2)*w)/3)-(power(x,2)/(4.5*f*e));
writeln(h);
readln
end.