Регистрация
auaftsuaftsa
25.04.2023 01:01
Информатика
Есть ответ 👍

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

163
232
Посмотреть ответы 2

Ответы на вопрос:

ник5040
ник5040
4,8(84 оценок)

// 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.

Zeus029
Zeus029
4,6(73 оценок)

1

Объяснение:

оуоуутуьуььуутутуоуоуоуо

Популярно: Информатика