baza2.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 11 行

program baza2;
var a,b,n:integer;
begin
writeln('a=');
read(a);
repeat
b:=a div 2
until b=0;
n:=a-2*b;
writeln('numarul' ,a, 'scris in baza 2 este' ,n);
end.