Program Lab7;.
uses crt;
var s,a,b,c,q1,q2,q3,q4:real;
procedure max1(g,h,j:real; var q1:real);
begin
if (a>b) and (a>c) then q1:=a else
if (b>a) and (b>c) then q1:=b else
q1:=c;
end;
procedure min1(g,h,j:real; q2:real );
begin
if (a<b) and (a<c) then q2:=a else
if (b<a) and (b<c) then q2:=b else
q2:=c;
end;
procedure max2(h,j:real;var q3:real);
begin
if (b>c) then q3:=b else
q3:=c;
end;
procedure max3(g,h:real;var q4:real);
begin
if (b>a) then q4:=b else
q4:=a;
end;
begin
clrscr;
writeln ('‚ўҐ¤ЁвҐ § зҐЁп ЇҐаҐ¬Ґле a,b,c');
write ('a = ');
readln (a);
write ('b = ');
readln (b);
write ('c= ');
readln ©;
max1(a,b,c,q1);
min1(a,b,c,q2) ;
max2(b,c,q3) ;
max3(a,b,q4);
write(q1,q2,q3,q4);
s:=(q1+q2)/(q3*q2*q4);
writeln ('‡ 票Ґ дгЄжЁЁ = ',s:2:5);
readln;
end.
Сообщение отредактировано: trew -