Помогите пожалуйста!!!! Нужно сделать программу перевода чисел из 8-ой системы счисления в 2-ую систему счисления...На Pascal
Function f8t2(s8:string):string;
const
m:array[0..7] of string=
(000,001,010,011,100,101,110,111);
m1:array[1..7] of string=
(1,10,11,100,101,110,111);
var
s:string;
i:integer;
begin
s:=m1[s8[1]];
for i:=2 to Length(s8) do s:=s+m[s8[i]];
f8t2:=s
end;
var
s:string;
begin
Write(Введите восьмеричное число: ); Readln(s);
Writeln(В двоичной системе: ,f8t2(s))
end.
Тестовое решение:
Введите восьмеричное число: 15740
В двоичной системе: 1101111100000
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
