Предмет: Информатика,
автор: mariska43728
Составить программу в Паскаль.Очень нужна ваша помощь
Приложения:

Ответы
Автор ответа:
1
Ответ:
pascal
Объяснение:
const
s: string[8] = '01234567';
var
d, n: integer;
o: string;
begin
Write('Введите число: ');
ReadLn(n);
d := n;
while d > 0 do
begin
o := s[d mod 8+1] + o;
d := d div 8;
end;
WriteLn(n, '(10) = ', o,'(8)');
end.
Приложения:

mariska43728:
Перепроверьте,пожалуйста
Похожие вопросы
Предмет: Английский язык,
автор: IAF
Предмет: Русский язык,
автор: Аноним
Предмет: Русский язык,
автор: margoshapovalova
Предмет: Алгебра,
автор: danekd00danilakeks
Предмет: Химия,
автор: miron1902