Question

Помогите составить программу в Паскале !!!!

X=под корнем a (в квадрате )+2b(в квадрате )

Answer 1

Объяснение:

var a, b,x:= integer;

begin

readln(a);

readln(b);

x:=sqrt(a^2+2*b^2);

writeln(x);

end.

Answer 2

program ex;

Var

a,b:integer;

x:real;

Begin

Readln(a,b);

a := Sqr(a);

b := Sqr(b);

b := 2*b;

x := a+b;

x := Sqrt(x);

write('x = ', x);

end.