7. Написать программу преобразования введенного десятичного числа в восьмеричный формат

@Яська · Регистрация: 24.10.2009

Author24 — интернет-сервис помощи студентам

Написать программу преобразования введенного десятичного числа в восьмеричный формат

циклическая структура

@Puporev · 26.10.2009, 19:43

Pascal

uses crt;
const zn:string[8]='01234567';
function DecToOct(n:longint):string;
var s:string;
begin
s:='';
while n>0 do
 begin
  s:=zn[n mod 8+1]+s;
  n:=n div 8;
 end;
DecToOct:=s;
end;
var d:longint;
begin
clrscr;
write('Число в системе 10=');
readln(d);
write('      В системе 8 =',DecToOct(d));
readln
end.

@Яська 0 / 0 / 0 Регистрация: 24.10.2009 Сообщений: 4
		1
	7. Написать программу преобразования введенного десятичного числа в восьмеричный формат 26.10.2009, 19:32. Показов 1716. Ответов 1 Метки нет (Все метки) Написать программу преобразования введенного десятичного числа в восьмеричный формат циклическая структура 0

	26.10.2009, 19:43

7. Написать программу преобразования введенного десятичного числа в восьмеричный формат

Решение