Написать программу в АБС паскале: написать программу и процедуру перевода из десятичной системы в 8-ичную.

1

Ответы и объяснения

2013-04-30T13:24:55+00:00

Program Perevod; 

Uses crt;
var z:integer;

 

procedure ToOct(z:integer);
begin
  if (z>1) then ToOct(z div 8);
  write(z mod 8:1);
end;


begin
     clrscr;
      write('Введите число:');
      readln(z);
      writeln('В Десятичной:',z:6);
      write('В восьмеричной: ');
      ToOct(z);
       readkey;
end.