Предмет: Информатика,
автор: Redhry
Помогите составить программу в паскаль!!!!!
Приложения:
![](https://files.topotvet.com/i/244/24458b1073448032b05ea3692aec27b8.jpg)
Ответы
Автор ответа:
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
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
Похожие вопросы
Предмет: Информатика,
автор: qweary
Предмет: Математика,
автор: alenkutssoff
Предмет: Химия,
автор: Аноним
Предмет: Химия,
автор: kypictoriSapfi