Ответы и объяснения

2013-06-06T15:33:16+04:00

program zadacha_na_otrezki;
uses crt;
var a,b,i,x:integer;
    m,t,n:real;
begin
clrscr;
readln(a,b);
m:=32000;
for i:=a to b do begin
for x:=0 to 4 do begin
n:=i+0.2*x;
t:=(sqrt(sqr(n)+4))/(sqr(n)-3*x);
if t<m then begin
m:=t;
end;
end;
end;
writeln(m:4:2);
end.