Ответы
Ответ дал:
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.
Приложения:
![](https://st.uroker.com/files/558/558abb9652879fb5363027f887389f7b.jpg)
mariska43728:
Перепроверьте,пожалуйста
Вас заинтересует
3 месяца назад
3 месяца назад
5 месяцев назад
5 месяцев назад
1 год назад
1 год назад
7 лет назад
7 лет назад