Var r,L,S:real;
begin
read (r);
L:=2*3.14*r;
S:=4*3.14*r*r;
write('длина...=',L);
write('площадь...=',S);
End.
100111=1*2^0+1*2^1+1*2^2+1*2^5=1+2+4+32=39
101=1*2^0+1*2^2=1+4=5
(перевод в десятичную)
39+5=44
39*5=195
ответ: 44 и 195
Var i:integer;
begin
for i:=192 to 223 do
write(chr(i),chr(i+32));
<span>end.</span>
Синие сразу увидят, что на красные все розданы и определят. (:D)
В 32-символьном алфавите на 1 символ необходимо log(2)32=5 бит.
На 20 символов: 20*5=100 бит