• Программа и процедура перевода из 10 сс в 8 сс на Паскале.
    Заранее большой спасибо.

Ответы 1

  • var  n: integer;function oct(x: integer): string;var  s: string;beginwhile x > 0 do     begin     s := IntToStr(x mod 8) + s;     x := x div 8;     end;Result := s;end;begin  write('Введите число: ');  readln(n);  writeln('Восьмиричная форма: ', oct(n))end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years