Hãy cho biết chữ số thứ k tính từ trái sang phải trong số N là số mấy?

Hãy cho biết chữ số thứ k tính từ trái sang phải trong số N là số mấy?

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)

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.

Nhận xét :

Nếu bài toán yêu cầu tìm chữ số thứ k tính từ phải sang trái thì đơn giản hơn nhiều. Lúc đó ta chỉ cần xóa k-1 chữ số cuối. Rồi lấy chữ số cuối.

Bạn thấy bài viết này như thế nào?: 
Average: 1.5 (32 votes)
Ảnh của Tommy Tran

Tommy owner Express Magazine

Drupal Developer having 9+ year experience, implementation and having strong knowledge of technical specifications, workflow development. Ability to perform effectively and efficiently in team and individually. Always enthusiastic and interseted to study new technologies

  • Skype ID: tthanhthuy

Advertisement

 

jobsora

Dich vu khu trung tphcm

Dich vu diet chuot tphcm

Dich vu diet con trung

Quảng Cáo Bài Viết

 
Dries Buytaert: Một số phản hồi về Drupal 7 từ Japan

Dries Buytaert: Một số phản hồi về Drupal 7 từ Japan

I presented at two Drupal meetups in Japan; spent the week meeting with members of the Drupal community, Drupal agencies, large system integrators (IBM, Accenture, Hitachi, Fujitsu, Ci&T and SIOS)

Giới thiệu sử dụng Mink để testing website Drupal 7

In this post, I'll be taking a look at the Mink layer behind Behat and using it for web scraping and functional testing and what this means for the future of Drupal testing.

8 bước cơ bản để triển khai dự án ERP - Enterprise Resource Planning

8 bước cơ bản để triển khai dự án ERP - Enterprise Resource Planning

Hệ thống giải pháp ERP (phần mềm quản trị doanh nghiệp) đã không còn lạ lẫm gì với các doanh nghiệp Việt trong những năm gần đây. Những để hiểu cặn kẽ “dự án erp là gì?”

Công ty diệt chuột T&C

 

Diet con trung