есть прога:

program WTF;

{$APPTYPE CONSOLE}

uses
SysUtils;
var
a,b,c,d:real;
begin
read(a,b,c,d);
if d=0 then begin
while (sqr(a)*b<288) do begin
b:=b+1;
end;
d:=a*sqr(b);
end
else if c=0 then begin
b:=sqrt(d)*(-1);
while (a*sqr(b)<>81) do begin
a:=a+1;
end;
c:=sqr(a)*b;
end;
writeln(a:1:0,' ',b:1:0,' ',c:1:0,' ',d:1:0);
end.

но она постоянно получает тайм аут, помогите увеличить скорость ее работы любым путем

1

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

2012-12-13T10:21:31+00:00

это вам не сюда,зайдите на любой сайт о компьютерах и задайте вопрос на форуме