Вводится восьми-битовое число. Вводится номер бита. Вводится удалить или нет. Вывести результат.
Такое вот задание задал лично одногрупнику наш препод. Целой группой гадаем вообще о чем идет речь, никто не знает...
Uses crt;
var s,s1 : string;
ch : char;
num,j : integer;
function ToDec(n:string; radix:longint):longint;
var
m, i: longint;
const
digit: string[16]='0123456789ABCDEF';
begin
m:=0;
while (n[1]='0') and (length(n) > 1) do delete(n,1,1);
for i:=1 to length(n) do m:=m*radix+pos(n[i],digit)-1;
ToDec:=m;
end;
begin
Clrscr;
s1 := '';
writeln ('Vvedite 8-bitnoje cislo :');
readln (s);
writeln ('Vvedite nomer bita, kotorij hotite udalitj');
readln (num);
writeln ('Tochno udaljajem?');
readln (ch);
if ( ch = 'y') or (ch = 'Y') then
begin
for j := 1 to Length(s) do if j <> num then s1 := s1 + s[j];
end
Else s1 := s;
writeln ('Cislo posle operacii : ', s1);
write (s1,' v binarnoj = ', ToDec (s1,2), ' v desjatichnoj');
readkey;
end.