X := 0.147;Label1.Caption := FormatFloat('#.##',x); Яке значення буде виведено?

ответ 2)                                

var a,b,c,d: real;

begin

    read(a,b,c,d);

    if ((a< c) and (b< d)) or ((b< c) and (a< d)) then

        writeln('впишется')

    else writeln('не впишется');

end.

var a,b,c: real;

begin

    read(a,b,c);

    if (a> b) and (a> c) then a: = b*c;

    if (b> a) and (b> c) then a: = a*c;

    if (c> b) and (c> a) then a: = b*a;

    writeln(a);

end.

3)var x,y,z,u: real; function max(x,y,z: real): real; begin  if (x> =y) and (x> =z) then max: = x;   if (y> =x) and (y> =z) then max: = y;   if (z> =y) and (z> =x) then max: = z; end; function min(x,y,z: real): real; begin  if (x< =y) and (x< =z) then min: = x;   if (y< =x) and (y< =z) then min: = y;   if (z< =y) and (z< =x) then min: = z; end; begin      read(x,y,z);       u: =(max(x,y,z)*max(x,y,z)-exp(x*ln(/(sin(2*x)+max(x,y,z)/min(x,y,z));       writeln(u); end.

напишите ая алгоритм вычисления у по формуле   у=(1-х2+5х4)2(степень), где х- заданное число. учтите следующие ограничения:

1) в арифмитических выражения можно использовать только операции сложения, вычитания и умножения. 2) каждое выражение может содержать только одну арифметическую операцию. выполните трассировку алгоритма при х= 2.

у(х) = (1 - х^2 + 5*х^4)^2 - я правильно записал выражение? , используйте знаки умножения "*" и возведения в степень "^" при записи выражений!

пусть запись // означает, что последующая часть строки является комментарием.

с учетом ограничений (1) и (2), алгоритм может выглядеть следующим образом:

1. вычислить tmp1 = х*х                                    // tmp1 = х^2

2. вычислить tmp2 = tmp1*tmp1            // tmp2 = х^4

3. вычислить tmp2 = 5*tmp2                        // tmp2 = 5*х^4

4. вычислить tmp1 = 1 - tmp1                    // tmp1 = 1 - x^2

5. вычислить tmp1 = tmp1 + tmp2        // tmp1 = 1 - x^2 + 5*х^4

6. вычислить y = tmp1*tmp1                        // y = (1 - x^2 + 5*х^4)^2

при x = 2 получим:

1. вычислить tmp1 = 2*2 = 4                        // tmp1 = 4

2. вычислить tmp2 = 4*4 = 16                    // tmp2 = 16

3. вычислить tmp2 = 5*16 = 80                // tmp2 = 80

4. вычислить tmp1 = 1 - 4 = -3                  // tmp1 = -3

5. вычислить tmp1 = -3 + 80 = 77        // tmp1 = 77

6. вычислить y = 77*77 = 5929                  // y = 5929

вычислим у(х) при х = 2: y(2) = (1 - 2^2 + 5*2^4)^2 = (1 - 4 - 5*16)^2 = 5929. т.е. наш алгоритм дает верный результат при х = 2.

var a,a12,a1,a2,a3,s: integer; begin readln(a); a1: =a div 100; a12: =a mod 100; a2: =a12 div 10; a3: =a12 mod 10; s: =a1+a2+a3; writeln(s); end.

a1-первое число трехзначного числа, a2-второе,a3-третье, a12-вторые два числа