E
VAR
x:WORD;
i,p:INTEGER;
function Pow_2(n:WORD):WORD;
Var i,Y:WORD;
BEGIN
IF n=0 THEN Pow_2:=1 ELSE
IF n=1 THEN Pow_2:=2 ELSE
BEGIN
Y:=2;
FOR i:=2 TO n DO Y:=Y*2;
Pow_2:=Y;
END;
END;
BEGIN
Write('Enter the number '); ReadLn(x);
p:=-1;
REPEAT
INC(p);
UNTIL (x div Pow_2(p))<2;
FOR i:=p DOWNTO 0 DO
BEGIN
Write(x div Pow_2(i));
x:=x mod Pow_2(i);
END;
ReadLn;
END.
#include <stdio.h>
#include <conio.h>
#include <math.h>
void dvoich(int x1)
{
int i, b;
long c = 0;
for(i=0;x1 > 0;i++)
{
b = x1 % 2;
x1 = (x1-b)/2;
c += b * pow(10,i);
}
printf("\nDvoichnoe chislo: %d",c);
}
void main()
{
int a;
printf("Vvedite desyatichnoe chislo:");
scanf("%d",&a);
dvoich(a);
getch();
}
Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab