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.

Ví dụ 1: Với N và k được nhập: N = 65932, k = 4

Kết quả tìm được là 3.

Ví dụ 2: Với N và k được nhập: N = 65932, k = 10

Kết quả tìm được là -1 ( k lớn hơn độ dài số N).

(giải thích từng bước giúp nha)

Answer 1

https://i.imgur.com/LRm4MuE.png

Answer 2

uses crt;
var n,k,d:longint;
st:string;
begin
clrscr;
write('n='); readln(n);
write('k='); readln(k);
if (n>=0) and (k>=0) then
begin
str(n,st);
d:=length(st);
if (k>d) or (k=0) then writeln('-1')
else writeln(st[k]);
end
else writeln('vui long nhap hai so tu nhien');
readln;
end.

Answer 3

program an_danh;
uses crt;
var n,k:longint;
ss: integer;
n2,k2: string;
begin
clrscr;
write('Nhap n: ');readln(n);
write('Nhap k: ');readln(k);
str(n,n2);
ss:= length(n2);
if (k <= ss) or (k = 0) then write('Ket qua: ',n2[k])
else write('Ket qua: -1');
readln
end.