Var
i, sum, beg:integer;
str:string;
begin
sum:=0;
beg:=1;
readln(str);
for i:=1 to Length(str) do
if str[i]='+' then
begin
sum:=sum+StrToInt(Copy(str, beg, i-beg));
beg:=i+1;
end;
sum:=sum+StrToInt(Copy(str, beg, Length(str)));
writeln(sum);
end.
По формуле Хартли 32 = 2⁶ (2 в шестой степени)
Значит участник получит 6 битов информации при выпадении любого из номеров
Var
A:integer;
S:real;
Begin
S:=0;
Write('A = ');ReadLn(A);
While A>0 do
Begin
S:=S+A;
A:=A-1
End;
WriteLn('S = ',S);
End.
Ответ:
Гиперссылка - это часть гипертекстового документа, ссылающаяся на другой.