Ответ:
1100100
Объяснение:
100 делишь на 2 потом 50 на 2 и так далее под один столбик, а потом остатки записываешь в ответ, начиная с конца.
Var a,b,c,d,sr:real;
begin
read(a,b,c,d);
sr:=(a+b+c+d)/4;
if (a<b) and (b<c) and (c<d) then
begin
a:=d;
b:=d;
c:=d;
end
else
if (a>b) and (b>c) and (c>d) then
begin
a:=sr;
b:=a;
c:=a;
d:=a;
end
else
begin
a*=a;
b*=b;
c*=c;
d*=d;
end;
write(a,' ',b,' ',c,' ',d);
<span>end.</span>
Var
a,b:real;
begin
read(a,b);
writeln(a*b);
end.
100 байт + 10 бит = 101.25 байта (810 бит)
2 кб + 4 б= 2.004 кбайта (2004 байта)