Записать программу в Паскаль

golubalex01 golubalex01    3   22.04.2020 13:47    0

Ответы
msSisi1 msSisi1  13.10.2020 16:31

// PascalABC.Net

var n: integer;

o: string;

begin

   n := 10000;

   o := '';

   

   while n >= 8 do

   begin

       o := (n mod 8) + o;

       n := n div 8;

   end;

   o := n + o;

   

   writeln(o);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика