Question

Viết chương trình cho nhập hai số tự nhiên N và k. Hãy cho biết chữ số thứ k tính từ trái sang phải trong số N là số mấy? nếu k lớn hơn độ dài của N hoặc k bằng 0 thì thông báo không tìm được.

Answer 1

Program Chu_so_thu_k;

 

Var M: array[1..10] of integer;

so: Longint;

i,k:integer;

Begin

Write(‘Nhap so: ‘);Readln(so); so:=abs(so);

Write(‘Nhap k: ‘);Readln(k);

i:=0;

While so>0 do

begin

i:=i+1;

M[i]:=so mod 10;

so:=so div 10;

end;

Write(‘Chu so thu ‘,k,’la: ‘,M[i-k+1]);

Readln

End.