Помогите составить программу в паскаль!!!!!

Помогите составить программку в паскаль!!!!!

Задать свой вопрос
2 ответа
Var a:integer; s:string;
BEGIN
write('Введите число: ');
readln(a);
s:='';
while agt;0 do
 begin
 if a mod 2=0 then s:='0'+s else s:='1'+s;
 a:=a div 2;
 end;
writeln(s);
END.

Пример:
Введите число: 131
10000011

Program num_sys;
Var n:integer;
  res:string;
begin
  readln(n);
  while n div 2 lt;gt; 0 do
  begin
    res:= res + n mod 2;
    n:= n div 2;
  end;
  res:= res + 1;
  write(res);
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт