245: 10100101
573: 101111011
Первая программа
var x,y: real;
begin
read(x);
y := x-Power(x,3)/3+Power(x,5)/5;
write('y = ', y );
end.
Вторая
var x,y: real;
begin
read(x);
y := Power(2, -x)-cos(x)+sin(2*x*y);
write('y = ', y );
end.
Третья
var x,y: real;
begin
read(x);
y := (Power(x,2)-7*x+10)/(Power(x,2)-8*x+12);
write('y = ', y );
end.
Четвертая
var x,y: real;
begin
read(x);
y := x-10*sin(x)+abs(power(x,4)-power(x,5));
write('y = ', y );
end.
Ответ:uses crt;
var i:integer;
r:real;
begin
for i:=10 to 22 do
writeln(i,' дюйм = ',i*2.54,' см');
end.
Объяснение:
<span>Frac (15.6) = 0.6 - функция выделяет дробную часть
Trunc(24.9)
= 24 - функция выделяет целую часть
В результате получим 24.6
</span>
I=3
K=1 тк число однозначное
i=I/K
i=3 бит
N=2^i
N=8
ответ: 8 этажей