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: 8.7 (43 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

 
5 tính năng quan trọng của Open Atrium 2 cho Education

5 tính năng quan trọng của Open Atrium 2 cho Education

Being able to effectively and efficiently collaborate with colleagues is something that every organization struggles with. Whether it be the process in which collaboration occurs or the tool that facilitates the process

Facebook khôi phục lại thiết lập thời gian trên News Feed

Facebook khôi phục lại thiết lập thời gian trên News Feed

Trong một bài viết vào chiều ngày 9/11, Facebook cho biết họ vừa tung ra một bản cập nhật cho News Feed. Theo đó, người dùng có thể sắp xếp thông tin theo những câu chuyện gần đây (Recent Stories) hay câu chuyện nổi bật (Highlighted Stories).

Giới thiệu the future of decoupled Drupal

Giới thiệu the future of decoupled Drupal

Of all the trends in the web community, few are spreading more rapidly than decoupled

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

 

Diet con trung