//Pascal
var
X, Y, z: real;
begin
write('X = ');
readln(X);
write('Y = ');
readln(Y);
if x <= y then
z := x + y
else
z := 1 - x + y;
writeln('z = ', z);
end.
Pascal
var
a,b : integer;
r : boolean;
begin
readln (a);
r := true;
b := a mod 10;
While a > 0 do
begin
if a mod 10 <> b then
begin
r := false;
a := 0;
end;
a := a div 10;
end;
if r then
writeln ('Все цифры числа одинаковы')
else
writeln ('Цифры числа различны');<span>
end.</span>
Var n,a,b,c,d:integer;
begin read(n);
a:=n div 1000;
b:=n div 100 mod 10;
c:=n div 10 mod 10;
d:=n mod 10;
n:=1000*a+100*c+10*b+d;
writeln(n);
<span>end.</span>
Ответ:
400 бит
Объяснение:
l=K*i
K=80
i=5 (т.к. 2 в степени 5 это 32, а 32 в свою очередь мощность алфавита)
l=80*5=400бит
4561,81,53,1,731,91это то что надо