Если строка является изображением целого числа в восьмеричной системе счисления, то перевести ее в целое число в двоичной системе счисления

@bezumov · Регистрация: 22.09.2013

Студворк — интернет-сервис помощи студентам

Вводится строка символов. Если она является изображением целого числа в восьмеричной системе счисления, то перевести ее в целое число в двоичной системе счисления, иначе выдать сообщение о некорректном вводе.

@CodeR · 05.10.2013, 11:53

Pascal

Const A:array[0..7] of string=('000','001','010','011','100','101','110','111');
Var s,st:string;
    i:byte;
Begin
    write('Строка символов: ');readln(s);
    For i:=1 to Length(s) do
     if not(s[i] in ['0'..'7']) then
     Begin
       writeln('Некорректный ввод');
       readln;
       Exit;
     End;
    While s[1]='0' do
     Delete(s,1,1);
    For i:=1 to Length(s) do
     st:=st+A[ord(s[i])-48];
    writeln('В 2-ой СС = ',st);
    readln;
End.

@bezumov 0 / 0 / 0 Регистрация: 22.09.2013 Сообщений: 11
		1
	Если строка является изображением целого числа в восьмеричной системе счисления, то перевести ее в целое число в двоичной системе счисления 05.10.2013, 11:03. Показов 2445. Ответов 1 Метки нет (Все метки) Вводится строка символов. Если она является изображением целого числа в восьмеричной системе счисления, то перевести ее в целое число в двоичной системе счисления, иначе выдать сообщение о некорректном вводе. 0

Опции темы

Если строка является изображением целого числа в восьмеричной системе счисления, то перевести ее в целое число в двоичной системе счисления

Решение