Регистрация
valeriya210322
03.07.2020 22:45
Информатика
Есть ответ 👍

За якими ознаками розрізняють програми архіватори​

104
296
Посмотреть ответы 1

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

fragerin
fragerin
4,7(15 оценок)
Var   a: integer; function p(x: integer): string; var   s: string; begin   s : = '';   while x > 0 do   begin       s : = chr(ord('0') + x mod 2) + s;       x : = x div 2;   end;   p : = s; end; begin   readln(a);   writeln(p(a)); end.

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