1 копейка,2 копейки,4 коп.,8коп,16 коп,32 коп,64 коп,128 коп и остальные деньги в девятый кошелёк
Var
a,b,c:integer;
x,y,z:string;
begin
writeln('Введите стороны треугольника');
readln(a,b,c);
x:='равнобедренный';
y:='равносторонний';
z:='разносторонний';
begin
if (c=b) and (a<>c) then
writeln('Треугольник',' ',x);
if (a=c) and (a<>b) then
writeln('Треугольник',' ',x);
if (a=b) and (a<>c) then
writeln('Треугольник',' ',x);
if (a=b) and (a=c) and (b=c) then
writeln('Треугольник',' ',y);
if (a<>b) and (a<>c) and (b<>c) then
writeln('Треугольник',' ',z);
end;
readln
<span>end.</span>
var a,b,n:real;
begin
writeln('vvedite chislo');
readln(a);
b=1;
n=b;
while b<a do
begin
if (a mod b = 0) then n:=n*b;
b:=b+2;
end;
writeln('n = ',n);
readln;
end.
1. От 2^8 + 1 до 2^9 = от 257 до 512
2. В случае, если шары не пронумерованы, 4 первых бита на синие шары, затем 3 - на зелёные, далее 2 - на жёлтые и 1 - на красные. Если же пронумерованы, то log2 20 = 5 бит.