ПОМОГИТЕ РЕШИТЬ, ПОЖАЛУЙСТА!

Question

ПОМОГИТЕ РЕШИТЬ, ПОЖАЛУЙСТА!

---

Answer 1

1)uses crt;
begin
if sqrt(1+sqrt(1+sqrt(1+sqrt(1))))<(1+sqrt(5))/2 then writeln('верно') else writeln('неверно');<br>end.
2)uses crt;
var x:integer;
y:real;
begin
readln(x);
if x<>10 then begin y:=(sqr(x+5))/(10-x); writeln(y)
end else writeln('x не входит в область определения');
end.
3)uses crt;
var n,e,d,s,t:integer;
begin
readln(n);
e:=n mod 10;
d:=(n div 10) mod 10;
s:=(n div 100) mod 10;
t:=n div 1000;
writeln(e,d,s,t);
end.

Answer 2

Полагаю, программой надо) Вот:
1:
begin
     writeln(sqrt(1 + sqrt(1 + sqrt(1 + sqrt(1)))) < (1 + sqrt(5)) / 2);
end.

2: (как я понял, надо ввести X, не бесконечность же выводить)
var
   y, x: real;
begin
     readln(x);
     if (x <> 10) then
        y := power(x + 5, 2) / (10 - x)
     else
         writeln('Error!');
     writeln(y);
end.

3:
var
   x, x1, x2, x3, x4: integer;
begin
     readln(x);
     x1 := x div 1000;
     x2 := x mod 1000 div 100;
     x3 := x mod 100 div 10;
     x4 := x mod 10;
     writeln(x4 * 1000 + x3 * 100 + x2 * 10 + x1); //можно было без суммы, но раз уж надо вывести именно число...:)
end.

Comments

огромное спасибо!