Question

Как это сделать в Pascal ABC?Контрольная работа,очень надо!

Answer 1

var x,y:real;

begin

 write('Введите число X: ');readln(x);

 write('Введите число Y: ');readln(y);

 if x<>0 then writeln('A= ',sqrt(x+(y/(3*x))):0:2)

 else writeln('На нуль делить нельзя!!!');

end.