profile
Опубликовано 5 лет назад по предмету Информатика от ATC

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

  1. Ответ
    Ответ дан HRAshton
    Полагаю, программой надо) Вот:
    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.
  2. Ответ
    Ответ дан yasadc
    1)uses crt;
    begin
    if sqrt(1+sqrt(1+sqrt(1+sqrt(1))))<(1+sqrt(5))/2 then writeln('верно') else writeln('неверно');
    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.



Самые новые вопросы