Var n: integer;
function oct(x: integer): string;
var s: string;
begin
while x > 0 do
begin
s := IntToStr(x mod 8) + s;
x := x div 8;
end;
Result := s;
end;
begin
write('Введите число: ');
readln(n);
writeln('Восьмиричная форма: ', oct(n))
<span>end.</span>
1вг
2абг
3 б 11101110111
4в
5 501
6гвба
7б
8б
9г(переменных)
10в
11в
12 96
13 38с4
Митеориты
астеройды
митеорды
планеты
звёзда