Tệp và thao tác với tệp

nguyễn an phát

cu Tí thường xuyên tham gia thi lập trình trên mạng.Vì  đạt thành tích cao nên  cu Tí được gửi tặng một phần mền diệt viruts.Nhà sản xuất cung cấp cho Tí một mã số là một số nguyên dương n không quá 255 chữ số .Đễ cài đặc phần mềm ,Tí phải nhập vào mật mã của phần mền,mật mã là số nguyên dương M được tạo bằng cách tính tổng các chữ số của số nguyên 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 trong 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

Vd:

MK.INP                                                                                                            MK.OUT

84915388247                                                                                                59

Nguyễn Lê Phước Thịnh
30 tháng 3 2021 lúc 23:04

const fi='mk.inp'

fo='mk.out'

var f1,f2:text;

st:string;

i,d,t,x,y:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,st);

d:=length(st);

t:=0;

for i:=1 to d do  

begin

val(st[i],x,y);

t:=t+x;

end;

writeln(f2,t);

close(f1);

close(f2);

end.

Lân Trần Quốc
30 tháng 3 2021 lúc 22:53

Code (C++): https://gist.github.com/minotour4869/f0228185c609ce10e5e7e64ebdb52f84

Chúc bạn học tốt nha 😉.


Các câu hỏi tương tự
Nguyễn Giang
Xem chi tiết
Ngọc Ánh
Xem chi tiết
Namn
Xem chi tiết
Khoa Nhật
Xem chi tiết
Hải Yến
Xem chi tiết
Haibanh
Xem chi tiết
Vũ Hữu Đại
Xem chi tiết
Kiên Ngọc
Xem chi tiết
Lê Thị Ngọc Anh
Xem chi tiết