Ввести двузначное целое число х<15. Написать программу перевода его в восьмеричную систему счисления. (Паскаль)

Question

Информатика

Хикок

18 августа, 18:38

Ввести двузначное целое число х<15. Написать программу перевода его в восьмеричную систему счисления. (Паскаль)

+3

Ответы (1)

Знаете ответ на вопрос?

Ашст · Answer 1

Const zs='01234567'; / / цифры в 8 СС

s:string;

begin

write ('Введите число в 10 СС: ') ;

readln (n) ;

s:='';

while n>0 do

begin

s:=zs[n mod 8+1]+s; / / берем остаток от деления на 8 и эту цифру пишем в начало строки

n:=n div 8 / / сокращаем число

end;

write ('Число в 8 СС: ', s) ;

readln

end.