Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Системы счисления
.PAS uses crt;
var
a,b,c,d:real;
ost,cha,i,j,x,k:longint;
Begin
clrscr;
writeln('‚ўҐ¤ЁвҐ зЁб«®');
readln(k);
cha:=k;
repeat
ost:=cha mod 2;
cha:=cha div 2;
write(ost);
if (ost=0) then i:=i+1;
until (cha<0.9);
writeln;
writeln(i,' Ї®§ЁжЁ© б жЁда®© 0');
readln;
End.
var
a,b,c,d:real;
ost,cha,i,j,x,k:longint;
Begin
clrscr;
writeln('‚ўҐ¤ЁвҐ зЁб«®');
readln(k);
cha:=k;
repeat
ost:=cha mod 2;
cha:=cha div 2;
write(ost);
if (ost=0) then i:=i+1;
until (cha<0.9);
writeln;
writeln(i,' Ї®§ЁжЁ© б жЁда®© 0');
readln;
End.
Соседние файлы в предмете Программирование