Деловая бумага, подтверждает факт или право, он завершен подписью
1)Program n_1;
var x,y,z,c:integer;
begin
readln (x,y,z);
c:=x;
if c>y then c:=y;
if c>z then c:=z;
writeln (c);
end.
2)Program n_2;
var x,y,z:integer; q,w,e:boolean;
begin
readln (x,y,z);
q:= (y>x) and (z>x);
w:= (y<x) and (y<z);
e:= (z<y) and (z<x);
if e=True then writeln (z);
if w=True then writeln (y);
if q=True then writeln (x);
end.
3)Program n_3;
var x,y,z:integer;
begin
readln (x,y,z);
if (x<y) and (x<z) then writeln (x);
if (y<x) and (y<z) then writeln (y);
if (z<y) and (z<x) then writeln (z);
end.
Procedure TForm1.Button1Click(Sender: TObject);
var
xn, e, m : Extended;
xnn : Extended;
begin
Memo1.Clear;
xn := StrToFloat(Edit1.Text);
e := StrToFloat(Edit2.Text);
m := StrToFloat(Edit3.Text);
repeat
xnn := xn;
xn := (1/3)*(2*xnn + (m/(xnn*xnn)));
Memo1.Lines.Append('xn = '+floattostr(xn));
until (Abs(xn-xnn)<e);
<span>end;
</span>
1) Ане нравятся уроки математики и химии
2) Ане нравятся уроки химии и не нравятся - математики
3) Ане нравятся уроки математики и не нравятся - химии
4) Ане нравятся уроки математики или химии
5) Ане нравятся уроки математики или не химии
6) Ане не нравятся уроки математики или химии
7) Ане не нравятся уроки математики или химии
8) Ане не нравятся уроки математики и химии
9) Ане не нравятся уроки математики или нравятся уроки химии