Ответы на вопрос:
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.
Популярно: Информатика
-
armanbolat9824.10.2022 15:02
-
Danusja1312.11.2021 01:26
-
kolitka117.12.2021 18:39
-
8915305106024.02.2020 08:34
-
Irynadv15.06.2020 10:47
-
sendrey854219.12.2021 13:40
-
benslip1304.07.2021 11:11
-
hhjjkh07.02.2020 14:18
-
Яяяячканр34511.06.2021 02:31
-
yliachedrina20018.11.2022 09:59