Составить алгоритм и программу для вычисления значения функции F по формулам: sqrt(ab)/3(a+b)^2 - при a>0, b>0 (pascal)
Ответы
Ответ дал:
0
Ответил в комментарий к ответу в прошлом вопросе
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.
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.
Приложения:
![](https://st.uroker.com/files/276/2760c21fd89c229cadcab07c8bf43aac.png)
Вас заинтересует
1 год назад
5 лет назад
5 лет назад
8 лет назад
8 лет назад
8 лет назад