Program enot;
Var a: array [1..2] of integer;
i:integer;
begin
for i:= 1 to 2 do
begin
a[i]:=random(3);
writeln(a[i]);
end;
<span>end.</span>
Для кодирования одного символа надо 7 бит.
для 12 символов 7*12=84 бит-11 байт
на одного пользователя отводится 1080/40=27 байт
27-11=16 байт для дополнительной информации
.
Паскаль:
<span>const pi=3.14;
var r,v:real;
begin
write('R = ');
readln(r);
v:=4/3*pi*r*r*r;
writeln('V = ',v:4:1);
end<span>.
Пример:
</span><span>R = 4
V = 267.9</span></span>
Первое число увеличится в 10 раз, второе - уменьшится в 2 раза
<span>Да, это он, Литий-ионный аккумулятор</span>