Var x:integer; y:real;
Begin
write('x=');
readln(x);
y:=((x*x)-(7*x)+10)/((x*x)-(8*x)+12);
writeln('y=',y);
End.
Странный алгоритм :)
Надпись слева я не разобрал, оставил со знаком вопроса, подправите потом этот текст. И, если в сообщениях x1 и x2 нужно было печатать в виде числа, то поставьте их перед текстом и отделите запятой, вот так: (x1, ' съест').
Сама программа:
var
x1, x2, y: real;
begin
Println('Введите значения x1, x2, y через пробел и нажмите Enter');
Readln(x1, x2, y);
x1 := y - x1;
x2 := y - x2;
if x2 < 0 then
x2 := -x2;
if x1 < 0 then
x1 := -x1;
if x1 = x2 then
Println('В улетит?')
else if x1 > x2 then
Println('x2 съест')
else Println('x1 съест');
end.
по формуле ножно возводить 2 в степень битов в сообщении)))
N=2⁵=32
Для решения этого задания достаточно перевести указанное число в двоичную СС и посчитать нули.
158(10) = 10011110, отсюда следует что нулей три.
Ответ: 3.
Readln(x);
//X^Y = exp(ln(X) * Y) - возведение в степень
ctg1:=cos(x)/sin(x);
y:=sqrt(sqrt((x*x+3)/(x-1))-exp(ln(ctg1*5)*3);