Написать программу перевода из десятичной системы счисления в двоичную при помощи функций пользователя. Паскаль (Функции пользователя).

Question

Информатика

Елизар

23 июля, 04:47

Написать программу перевода из десятичной системы счисления в двоичную при помощи функций пользователя. Паскаль (Функции пользователя).

+2

Ответы (1)

Знаете ответ на вопрос?

Елюся · Answer 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.