перевести в паскале число из десятичной в восьмеричную

Перевести в паскале число из десятичной в восьмеричную

Задать свой вопрос
1 ответ
Var
ch, mo, di: longint;
otvet, s: string;
begin
readln(ch);
otvet := '';
while ch lt;gt; 0 do
begin
di := ch div 8;
mo := ch mod 8;
str(mo, s);
otvet := s + otvet;
ch := di;
end;
writeln(otvet);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт