22 ноября, 09:04

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

0
Ответы (1)
  1. 22 ноября, 09:14
    0
    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.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Ввести двузначное целое число х ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы