ДАЮ 99 БАЛЛОВ!!!! ПОМОГИТЕ ГУМАНИТАРИЮ 1.√(√у-5*у+8) Составьте программу.Ответ запишите с...

Question

ДАЮ 99 БАЛЛОВ!!!!
ПОМОГИТЕ ГУМАНИТАРИЮ
1.√(√у-5*у+8)
Составьте программу.Ответ запишите с помощью функций round,int и frac.
2.Написать программу.Для х,заданного вычислите "у" по формуле у=х в кубе+2,5х в квадрате -х+1
При этом:
а)в одном операторе присваивания можно использовать не более одной орифметической операции;
б)в программе может быть использовано не более пяти операторов присваивания
в)операцию возведения в степень использовать запрещено!
3.Составить программу, которая вычислит длину гипотенузы. Конечный ответ округлить до 4 цифр после запятой.

Answer 1

1.
var y:real;
begin
write('y = ');
readln(y);
writeln(sqrt(sqrt(y)-5*y+8):5:3);
end.

Пример:
y = 0.09
2.802

2.
var x,y,t1,t2,t3:real;
begin
write('x = ');
readln(x);
t1:=x*x;    // x^2
t2:=x+2.5;  // x+2.5
t3:=t1*t2;  // x^3+2.5*x^2
y:=t3-x;    // x^3+2.5*x^2-x
y:=y+1;     // x^3+2.5*x^2-x+1
writeln('1) y = ',y:5:2);
writeln('2) y = ',x*x*x+2.5*x*x-x+1:5:2);
end.

Пример:
x = 3
1) y = 47.50
2) y = 47.50

3.
var a,b,c:real;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
c:=sqrt(a*a+b*b);
writeln('c = ',c:6:4);
end.

Пример:
a = 3
b = 4
c = 5.0000