Viết chương trình nhập vào một số tự nhiên n (n<1000) và xác định: - Chữ số đầu tiên bên trái của n. VD: 252 chữ số đầu tiên bên trái là 2
USES crt; VAR n, cs:integer; BEGIN write('n= '); readln(n); IF (n > 0) and (n < 9) THEN cs:=n; IF (n > 10) and (n < 99) THEN cs:= (n div 10); IF (n > 100) and (n < 999) THEN cs:= (n div 100); write('Chu so ben trai= ',cs); READLN END.
uses crt; var s:string; a:integer; begin clrscr; write('Nhap n:'); readln(a); str(a,s); writeln('Chu so dau tien ben trai:',s[1]); readln; end.
?
??
vcl