Основание системы 16 надо писать в скобках:
8BC(16) = 8*16^2 + 11*16 + 12 = 8*256 + 176 + 12 = 2048 + 188 = 2236
Program zadacha;
const pi=3.14;
var r,C,s: real;
Begin
r:=5.4;
C:=2*pi*r;
S:=pi*r*r;
writeln('c=',c);
writeln('s=',s);
end.
10101001 = <span> 1*2^7 + 0*2^6 +1*2^5 + 0*2^4 + 1*2^3 +0*2^2 + 0*2^1
+ 1*2^0 = </span>128 +0 + 32 + 0 + 8 +0+0+1= 169
Алг Число
нач
цел n, k
вывод "Введите целое число", нс
ввод n
k:=0
нц пока n>0
если mod(n,10)=9 то
k:=k+1
все
n:=div(n,10)
кц
если k=2 то
вывод "Да."
иначе
вывод "Нет."
кон
Var a:array[0..100] of integer;
<span>i,n:integer; </span>
<span>begin </span>
<span>read(n); </span>
<span>for i:=0 to n-1 do begin read(a[i]); </span>
<span>if i mod 2=0 then a[i]:=1 else </span>
<span>a[i]:=i mod 5; </span>
<span>end; </span>
<span>for i:=0 to n-1 do write(a[i],' '); </span>
<span>end.</span>