Question

nhập số tự nhiên N . Sau đó in ra chữ số đầu tiên của số N

Answer 1

uses crt;

var n:integer;

begin

clrscr;

write('Nhap so tu nhien N: '); readln(n);

while n div 10 > 0 do n:=n div 10;

write('Chu so dau tien cua so N la: ',n);

readln;

end.

Answer 2

uses crt;

var n:integer;

st:string;

begin

clrscr;

write('n='); readln(N);

str(n,st);

write(st[1]);

readln;

end.