Предмет: Информатика, автор: Redhry

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

Приложения:

Ответы

Автор ответа: petyaGavrikov
0
var a:integer; s:string;
BEGIN
write('Введите число: ');
readln(a);
s:='';
while a>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

Похожие вопросы
Предмет: Математика, автор: alenkutssoff
Предмет: Химия, автор: Аноним