А я бесплатно напишу 
| Код |
program foo;
uses crt;
var k1, k2, k3, kmin, kmax, l, y: real;
begin
writeln ("Enter K1");
readln (k1);
writeln("Enter K2");
readln(k2);
writeln("Enter K3");
readln(k3);
if (k1>k2) and (k1>k3) then kmax := k1; //else можно поставить
if (k2>k1) and (k2>k3) then kmax := k2; //else можно поставить
if (k3>k2) and (k3>k1) then kmax := k3;
if (k1<k2) and (k1<k3) then kmin := k1; //else можно поставить
if (k2<k1) and (k2<k3) then kmin := k2; //else можно поставить
if (k3<k2) and (k3<k1) then kmin := k3;
l := kmin/kmax;
if (l>1) then y := k1+k2+k3;
if (l=1) then y := 0;
if (l<1) then y := k1*k2*k3;
writeln("Y="); //По хорошему это в одну строку пишется, но я не помню как :)
write (y); //
readln;
end.
|
|