Составить алгоритм и программу для вычисления значения функции F по формулам: sqrt(ab)/3(a+b)^2 - при a>0, b>0 (pascal)
Answers & Comments
Milton812
Ответил в комментарий к ответу в прошлом вопросе
program p1; var a, b, F: real; begin writeln('Введите A >> '); readln(a); writeln('Введите b >> '); readln(b); if (a>0) and (b>0.0) then begin F:=sqrt(a*b)/3*sqr(a+b); writeln('F(a,b)='+F); end else writeln('Ошибка. A<0 или B<0'); end.
Answers & Comments
program p1;
var a, b, F: real;
begin
writeln('Введите A >> ');
readln(a);
writeln('Введите b >> ');
readln(b);
if (a>0) and (b>0.0) then
begin
F:=sqrt(a*b)/3*sqr(a+b);
writeln('F(a,b)='+F);
end
else
writeln('Ошибка. A<0 или B<0');
end.