DIM a(1 TO 10)
CLS
RANDOMIZE (TIMER)
s = 0
FOR i = 1 TO 10
a(i) = CINT(21 * RND - 11)
PRINT a(i);
IF a(i) MOD 2 <> 0 THEN s = s + a(i)
NEXT i
PRINT
PRINT "s = "; s
var
i:integer;
begin
for i:=60 to 70 do write (chr(i),' ');
readln;
end.
172(8) = <span>122(10)
2ЕА(16) = </span>746<span>(10)
101010(2) = 42</span><span>(10)
10.1(2) = 2.5</span><span>(10)
243(6)</span> = 99<span>(10)
</span>51(10), 21(10), 29(10), 27(10) соответственно =>
а) <span>110011(2)
б) </span><span>111(4)</span>
Ну раз поскакаль, то так
l:=2*3.14*r;
Эта команда рассчитает длину окружности по радиусу.
Если нужна программа полностью - надо уточнять это в условии.