Не позиционный с.с. - римская или арабская
Позиционная с.с. - двоичная, троичная, восьмеричная, десятиричная и тп
Ответ:
2BC 16=2*16^2+11*16^1+12*16^0=512+176+12l=700 10
var s,p: string;
i: integer;
begin
write('Введите текст: ');
readln(s);
p:=s;
for i:=1 to length(s) do
if (s[i]='.') or (s[i]='!') or (s[i]='?') or (s[i]=',')
then delete(p,pos(s[i],p),1);
write('результат: ',p);
end.
Program n1;
var a: array[1..8] of integer;
i,k3,kn: integer;
begin
randomize;
write('исходный массив: ');
k3:=0;
kn:=0;
for i:=1 to 8 do
begin
a[i]:=random(21)-10;
write(a[i],' ');
if a[i] mod 3=0 then k3:=k3+1;
if a[i] mod 2<>0 then kn:=kn+1;
end;
writeln;
write('кратные 3: ');
for i:=1 to 8 do if a[i] mod 3=0 then write(a[i],' ');
writeln;
write('нечетные: ');
for i:=1 to 8 do if a[i] mod 2<>0 then
write(a[i],' ');
writeln;
if kn>k3 then write('нечетных больше') else if k3>kn then
write('кратных 3 больше');
end.