Var S, N: integer;
begin
read(n);
S := 0;
while n <> 0 do
begin
S := S + n;
read (n);
end;
write(S);
<span>end.
Считает сумму n.</span>
Графический объект из панели инструментов который можно разместить на холсте, обычно это точка, окружность, кривая, прямая, прямоугольник
01000100 01110101 01100010 01101001 01101110 01110011 01101011 01100001 01101001 01100001
Log2 (1/p1)=4
p1=1/16;
p2=1/32(в 2 раза меньше)
log2 (1/р2)=5
Только 112 и 444, другие не подходят, вродь