Помогите, пожалуйста! Нужно написать программу для АВС паскаль. Программа должна переводить

Помогите, пожалуйста! Необходимо написать программу для АВС паскаль. Программка обязана переводить обычные числа в двоичную систему счисления. Заблаговременно большое спасибо! 87 баллов!!

Задать свой вопрос
2 ответа
Var n,m:integer;
s:string;
begin
write('n = ');
readln(n);
m:=n;
s:='';
while mgt;0 do
 begin
 if m mod 2=0
  then s:='0'+s else s:='1'+s;
 m:=m div 2;
 end;
writeln(s);
end.

Пример:
n = 115
1110011
Var
  a: integer;

function p(x: integer): string;
var
  s: string;
begin
  s := '';
  while x gt; 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.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт