Var
f1: text;
a,b: integer;
begin
assign (f1, '<file adress and name>');
read (f1, a,b);
close;
if a>b then writeln (a, '>', b)
else writeln (a, '<', b);
end.
При использовании алфавита из 8 символов для записи одного символа требуется log(2)8 = 3 бита; при использовании алфавита из 16 символов - log(2)16 = 4 бита. Количество информации в первом тексте = K*3, во втором тексте - K*4; соотношение объемов = K*3/K*4 = 0.75, т.е. объем информации в первом тексте меньше, чем объем информации во втором.
Исходя из графика
2х - уравнение первой прямой
x/2 - уравнение второй прямой
(x+3)^2 + (y+3)^2 = 9 - уравнение окружности
x = int(input("Enter x "))
y = int(input("Enter y "))
if (((x+3)**2)+((y+3)**2) < 9.0) and ((y > 2*x) or (y < x/2)):
print("Принадлежит")
else:
print("Не принадлежит")
1)г,б,а,в
2)б,в,а,г
3)г,в,б,а
4)в,б,а,г
5)г,а,б,в
Я написала порядок букв например
г-мопсы пудели и тж
Исходная программа была совершенно безумной, пришлось поправить.
program lab3;
label
loop,fin;
var
x,y:real;
begin
writeln('vvedite x'); readln(x);
loop:
if x>1 then goto fin;
if 1.5*x<1 then y:=1.5*x-ln(1.5*x)/ln(10)
else
if 1.5*x>1 then y:=1.5*x+ln(1.5*x)/ln(10)
else y:=1;
writeln('x=',x:0:1,', y=',y:5:3);
x:=x+0.1;
goto loop;
fin:
end.