Những tài liệu gần giống với tài liệu bạn đang xem
De thi
Bai 1:Var A:array[1..100] of integer; i,j,n:integer; Begin Write(`nhap n `);Readln(n); i:=1; While n div 16 0 do Begin n:=n div 2; a[i]:=n mod 2; i:=i+1; End; For j:=i downto 1 do begin case a[i] of 15 : write(`F`); 14 : write(`E`) ; 13 :
doc Đăng bởi
khangueh
