Предмет: Информатика,
автор: elenashvez
Написать программу перевода целого десятичного числа в двоичную систему диапозон значения до 1000. На языке Паскаль.
Ответы
Автор ответа:
0
PascalABC.Net
var
a : integer;
s : string;
begin
readln (a);
while a>=1 do
begin
if a mod 2 = 1 then
s := s + '1'
else
s := s + '0';
a := a div 2;
end
else s := '0';
s := ReverseString (s);
writeln (s);
end.
var
a : integer;
s : string;
begin
readln (a);
while a>=1 do
begin
if a mod 2 = 1 then
s := s + '1'
else
s := s + '0';
a := a div 2;
end
else s := '0';
s := ReverseString (s);
writeln (s);
end.
Похожие вопросы
Предмет: Биология,
автор: silkeen1785
Предмет: Русский язык,
автор: akimbekdana
Предмет: Математика,
автор: alisalisa2009
Предмет: Биология,
автор: NikSap142
Предмет: Информатика,
автор: karicha2000