C++ Напишите функцию, которая как результат возвращает число, переведенное в восьмеричную систему счисления.
Формат входных данных
Дано неотрицательное целое число N (0 ≤ N ≤ 100 000 000).
Формат выходных данных
Выведите переведенное число в восьмеричной системе счисления. Ведущие нули выводить не требуется.
Примечания
Результат должен быть значением типа int.
входные данные
34
0
выходные данные
42
0
program z;
var
i : integer;
begin
Writeln('Введите число'); Readln(i);
if i mod 2 = 0
then
Writeln('Число чётное')
else
Writeln('Число не чётное');
readln;
end.
2
program z;
var
i : integer;
begin
Writeln('Введите число'); Readln(i);
if i mod 3 = 0
then
Writeln('Число делится на 3')
else
Writeln('Число не делится на 3');
readln;
end.
3
program z;
var
i: array[1..6] of byte;
x:byte;
begin
for x:=1 to 6 do
begin
Writeln('Введите ', x,' цифру из 6 ');
Read(i[x]);
end;
if (i[1]+i[2]) = (i[4]+i[5]+i[6])
then
Writeln('Билет счастливый')
else
Writeln('Билет не счастливый');
Readln;
end.
5)))
program z;
var
i : integer;
begin
Writeln('Введите число'); Readln(i);
if i mod 6 = 0
then
Writeln('Число делится на 6')
else
Writeln('Число не делится на 6');
readln;
end.
6
program z;
var
a,b:integer;
begin
Writeln('Введите число A'); Readln(a);
Writeln('Введите число B'); Readln(b);
if b mod a = 0
then Writeln('Число А делится нацело на число В')
else Writeln('Число А не делится нацело на число B');
Readln;
end.
var i,j,n,ans:integer;
begin
read(n);
for i:=1 to 9 do
for j:=0 to 9 do
if i+j=n then
ans:=ans+1;
writeln(ans);
end.
2)
uses crt;
var i,n:integer;
x:array[1..100] of integer;
begin
writeln('Введите количество x и значения: ');
read(n);
for i:=1 to n do
read(x[i]);
writeln('x y');
for i:=1 to n do
writeln(x[i],' ',x[i]*x[i]+3);
end.
3.
uses crt;
var i:integer;
begin
for i:=1 to 5 do
write(i*i*i,' ');
end.
4.
uses crt;
var i,n,sum:real;
begin
writeln('Введите N:');
read(n);
i:=3;
while i<=n do
begin
sum:=sum+1/i;
i:=i+3;
end;
writeln(sum);
end.
5.
uses crt;
var j,i,n,sum:integer;
a:array[1..100] of integer;
begin
writeln('Введите количество чисел и сами числа:');
read(n);
for i:=1 to n do
begin
sum:=0;
read(a[i]);
for j:=1 to length(inttostr(a[i])) do
sum:=sum+strtoint(inttostr(a[i])[j]);
if sum mod 3 = 0 then
write(a[i],' ');
end;
end.
6.a)uses crt;
var n:string;
begin
read(n);
writeln(max(strtoint(n[1]),strtoint(n[2])));
end.
б)
uses crt;
var n:string;
begin
read(n);
writeln(max(max(strtoint(n[1]),strtoint(n[2])),strtoint(n[3])));
end.