Developing.ru

Код: Выделить всё

uses crt;
var a,b,c,x,y:real;
begin
write('a->'); readln(a);
write('b->'); readln(b);
write('c->'); readln(c);
x:=(a*a-c*c)/(c*c-b);
if x>=0 then y:=(a*a+b*b)/c+sqrt(a*a+x) else y:=(sin(x)+b)/(a-b);
write('Y=',y:0:7);
repeat until keypressed;
end.

Код: Выделить всё

uses crt;
var a,b:real;
begin clrscr;
write('a->'); readln(a);
write('b->'); readln(b);
if a>=b then begin
             a:=a*2;
             b:=b*2;
             end else begin
                      a:=abs(a);
                      b:=abs(b);
                      end;
writeln('a=',a:0:7);
writeln('b=',b:0:7);
repeat until keypressed;
end.