Есть ответ 👍

Информационный объём сообщения из 80 символов алфавита равен

259
381
Посмотреть ответы 1

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


Program n1; var n: integer; function per(n: integer ): integer; var a: array[1..500] of integer; i,c: integer; begin c: = 0; repeat c: = c + 1; a[c]: = n mod 2; n: = n div 2; until n = 0; for i: = c downto 1 do write(a[i]); end; begin write('введите число: '); readln(n); per(n); end.

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