1) 10010010(2)<span> = </span><span>146(10)
</span>2) 10011111(2)<span> = </span><span>159(10)
</span>3) 10111010(2)<span> = </span><span>186(10)
4) </span>101111111(2)<span> = </span><span>383 (10)</span>
Смотри хороший сайт_pascal.helpov.net
Var
i, sum : integer;
begin
sum := 0;
for i := 1 to 100 do sum := sum + i;
writeln (sum);
end.