Var
m, n: integer;
begin
readln(m, n);
if (m mod n = 0) or (n mod m = 0) then
writeln(1)
else
begin
randomize;
writeln(random(50));
end;
<span>end.</span>
1 алфавит 32=2^5. 1символ 5 бит. объем =5*20=100бит. 2 алфавит 64=2^6 1символ 6 бит. объем 6*15=90бит. 100-90=на 10бит 1>2
<span>1. а>_0 (больше или равно) - Правильно: a>=0
2. х>0 or y<0 - Правильно: (</span>х>0) or (y<0)<span>
3. c=/10 (не равно) - Правильно: c<>10
4. (x>10) and (y<20) - Верно
5. x, y>0 - Правильно: (x>0)and(y>0)
6. x>0, y<0 - Правильно: (x>0)and(y<0)
7.d><0 - Правильно: d<>0
8. </span><span>-5<а<10 - Правильно: (-5<a)and(a<10)</span><span>
9. x>=y - Верно
10. z=10 - Верно
11. x=y=z - Правильно: (x=y)and(y=z)</span>
Var
x,y:real;
begin
Write('Введите число: ');
Readln(x);
if x=0 then Writeln('Функция не определена')
else if x=5 then Writeln('Значение функции бесконечно')
else
begin
if x<0 then y:=1/(x-1)
else y:=1/(x-5);
Writeln('F(x)=',y)
end
end.