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

Ответы 2

  • 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.
    • Автор:

      fionaufh8
    • 6 лет назад
    • 0
  • var n,m:integer;s:string;beginwrite('n = ');readln(n);m:=n;s:='';while m>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 = 1151110011
    • Автор:

      purdy
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years