Cu Tí thường xuyên tham gia thi lập trình trên mạng với Pascal

Cu Tí thường xuyên tham gia thi lập trình trên mạng với Pascal

Cu Tí thường xuyên tham gia thi lập trình trên mạng. Vì đạt được thành tích cao nên Tí được gửi tặng một phần mềm diệt virus. Nhà sản xuất phần mềm cung cấp cho Tí một mã số là một số nguyên dương N có không quá 255 chữ số. Để cài đặt được phần mềm, Tí phải nhập vào mật khẩu của phần mềm. Mật khẩu là một số nguyên dương M được tạo ra bằng cách tính tổng giá trị các chữ số của N.

Yêu cầu: Hãy tìm số nguyên dương M.

Dữ liệu vào: Cho trong file văn bản MK.INP có cấu trúc như sau:

- Dòng 1: Ghi số nguyên dương N.

Dữ liệu ra: Ghi ra file văn bản MK.OUT theo cấu trúc như sau:

- Dòng 1: Ghi số nguyên dương M tìm được.

Ví dụ:

MK.INP MK.OUT
84915388247 59

CODE:

Program Mat_khau;
Const fi='MK.INP';
      fo='MK.OUT';
      A:Array['0'..'9'] of Byte = (0,1,2,3,4,5,6,7,8,9);
Var N:byte;
    St:String;
Procedure Read_Data;
 Var f:text;
 Begin
   Assign(f,fi);
   Reset(f);
   Readln(f,St);
   Close(f);
 End;
Function Tong:Longint;
Var f:text;
   i,T:Longint;
Begin
   T:=0;
   For i:=1 to Length(St) do
      T:=T+A[St[i]];
   Tong:=T;
End;
Procedure Write_Data;
Var f:Text;
Begin
   Assign(f,fo);
   Rewrite(f);
   Write(f,Tong);
   Close(f);
End;
BEGIN
  Read_Data;
  Write_Data;
End.
Bạn thấy bài viết này như thế nào?: 
Average: 5.2 (12 votes)
Ảnh của Tommy Tran

Tommy Tran 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
  • Phone/Zalo: (+84) 944 225 212
  • WhatsApp: (+84) 944 225 212
  • Line Messenger: (+84) 944 225 212
  • Email: asaleotestf@gmail.com
  • Telegram Messenger: https:/t.me/tommytran0401

Quảng cáo việc làm

 

Thích hợp các bạn nữ mảng thợ may làm việc tại nước NGA

Đơn hàng Tuyển dụng 100 Thợ may đi Nga(đợt 1 tháng 3.2021, đợt 2 tháng 5.2021). Lương thực lãnh 800 USD, bao ăn ở, vé máy bay và visa, phí xuất cảnh(1800 USD)trả khi đi làm có lương. Bạn có thể liên hệ CÔNG TY qua Phone/Zalo: (+84) 944 225 212. Công ty sẽ tư vấn cho bạn.

Xem chi tiết: >>> https://bit.ly/3o9NOfR

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

 
Installing Drupal 7 as a Multisite (esp. GreenGeeks)

Hướng dẫn cài đặt Drupal 7 Multisite

Do you have more than a few installations of Drupal 7 on a server? Tired of doggedly updating the core files when they're released

Máy in - Máy in văn phòng

Máy in - Máy in văn phòng

Máy in dùng trong văn phòng bao gồm nhiều thể loại và công nghệ khác nhau. Thông dụng nhất và chiếm phần nhiều nhất hiện nay trên thế giới là máy in ra giấy và sử dụng công nghệ lade.

Nhanh tay “thử ngay” giao diện mới của Youtube!

Nhanh tay “thử ngay” giao diện mới của Youtube!

Youtube đang thử nghiệm một thiết kế trang chủ mới, thông tin này đang lan truyền trên các mạng xã hội Facebook, Google +, Twitter.