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

NP

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

NT
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.

Bình luận (0)
LQ
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 😉.

Bình luận (0)

Các câu hỏi tương tự
NG
Xem chi tiết
NA
Xem chi tiết
H24
Xem chi tiết
KN
Xem chi tiết
HY
Xem chi tiết
H24
Xem chi tiết
VD
Xem chi tiết
KN
Xem chi tiết
LA
Xem chi tiết