Предмет: Информатика,
автор: popuk
напишите пж программу по информатике в pascal
Приложения:
Ответы
Автор ответа:
0
var a,b,c,s,k,y:real;beginreadln(a,b,c);s:=(sqrt(3*power(a,4)))/(3*c)+ 3*b;k:=s+(sqrt(abs(power(a,3)-b-c*2)));y:=k-(s/(b*c))+sqrt(s);write (y:4:4);end.
Похожие вопросы
Предмет: Математика,
автор: elizavetasemenova450
Предмет: Химия,
автор: klimovakaterina22
Предмет: Физика,
автор: luyizaklimyuk
Предмет: Алгебра,
автор: azazoon
Предмет: Литература,
автор: svetadudureva
begin
readln(a,b,c);
s:=(sqrt(3*power(a,4)))/(3*c)+ 3*b;
k:=s+(sqrt(abs(power(a,3)-b-c*2)));
y:=k-(s/(b*c))+sqrt(s);
write (y:4:4);
end.