Написать текст программы на языке Паскаль. Вычислить значения следующих функций, используя условный оператор.

var

F, x: real;

begin

Write ('x= ');

Read (x);

if x>3 then

F:=1.2*x*x - 3*x - 9

else

F:=12.1 / (2*x*x + 1);

Write ('F= ', F)

end.

program srednball;

var a,b,d : integer;

        c : real;

begin

    writeln (' vvedite balli, nabrannie sportsmenom po 3 vidam sporta');

    readln (d);

    readln (a);

    readln (b);

    c: =(a+b+d)/3;

    writeln (' srednii ball= ', c: 4: 2);

    readln;

end.

у семи нянек дитя без глаза.

28 символов * 2 = 56 байт

56 * 8 = 448 бит.

ответ. 448 бит.