Uses crt;
var s:string;
n,i:integer;
begin
readln(s);
n:=length(s);
for i:=1 to n do
if s[i]=s[n] then delete(s,i,1);
writeln(s);
end.
Эта программа рассчитана на то, что удаляется и последний символ тоже
1 весит - 8 битов
вот и всё это просто
Ну, для начала можно составить табличку.
Десят. - Восьм. - Шестн
0-000-0000
1-001-0001
2-010-0010
3-011-0011
4-100-0100
5-101-0101
6-110-0110
7-111-0111
Далее, в восьмеричной максимальное число 7, поэтому буду сразу писать шестн.
8-1000
9-1001
A-1010
B-1011
C-1100
D-1101
E-1110
F-1111
Итак, когда у нас есть двоичное значение каждых чисел, выполняем перевод:
726
=111010110
Теперь справа налево, выделяем по 4 цифры, и смотрим в таблицу :
0110 - 6
1101 - D
0001 - 1 ;
У нас получилось так :
726
=111010110
=1D6
Вроде, понятно объяснил :)
двойной клик (на рисунок) левой кнопкой на мышке, появиться формат рисунка, выбираешь размер и делаешь сколько надо) только в Microsoft Office Word