Cho số nguyên dương N (N <= 1019). Gọi M là tổng các chữ số của N. Yêu cầu: Hãy tính tổng của N và M. Dữ liệu vào: Từ tệp văn bản SUMN.INP ghi số nguyên dương N. Kết quả: Ghi ra tệp văn bản SUMN.OUT kết quả của bài toán. Ví dụ: SUMN.INP: 1234 SUMN.OUT:

ht197650

2 năm trước

Cho số nguyên dương N (N <= 1019). Gọi M là tổng các chữ số của N. Yêu cầu: Hãy tính tổng của N và M. Dữ liệu vào: Từ tệp văn bản SUMN.INP ghi số nguyên dương N. Kết quả: Ghi ra tệp văn bản SUMN.OUT kết quả của bài toán. Ví dụ: SUMN.INP: 1234 SUMN.OUT: 1244

Loga Sinh Học lớp 12

0 lượt thích 19 xem

1 trả lời

Thích Trả lời

Sinhthanh

var n:qword;
i,t:word;
s:string;
f1,f2:text;
begin
assign(f1,'SUMN.INP');reset(f1);
assign(f2,'SUMN.OUT');rewrite(f2);
readln(f1,n);
str(n,s);
for i:=1 to length(s) do
t:=t+ord(s[i])-48;
writeln(f2,n+t);
close(f1);close(f2);
end.

Vote (0) Phản hồi (0) 2 năm trước

320605612211758

program bai_giai;
var f,g:text;
n,n1:qword;
a,m:byte;
begin
Assign(f,'SUMN.INP'); reset(f);
Assign(g,'SUMN.OUT'); rewrite(g);
readln(f,n);
n1:=n; m:=0;
while n1<>0 do
begin
a:=n1 mod 10;
m:=m+a;
n1:=n1 div 10;
end;
write(g,m+n);
close(f); close(g);
end.

Nếu là 10^9 thì bạn dùng n,n1:longint; còn nếu là 10^19 thì bạn dùng n,n1:qword; nha

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

giải chi tiết bài này giúp e với ạ !!!

Tính (x+5)(x-7)-(x-4)(x+3) (x-1)(x+2)-(x+5)(x-2) (2x-3)(x+4)+(-x+1)(x-2) (-x+5)(x-3)+(2x-1)(x+3) ai làm nhanh em cho trlhn ạ

1. “ Did you do that, Tom?” I asked Tom…………………………………………………………………………… 2. “ Are you going to marry my daughter?” the father asked the man……………………………………………………………………………… 3 . “ Is your teacher getting angry?” he asked her …………………………………………………….. 4. “ Are you happy?” I asked him………………………………………………………………………………………………………….. 5. “ Don’t you know how to speak English?” they aksed me……………………............... ai giúp em bài này với ạ

Nêu biểu hiện + dẫn chứng của vấn đề nghị luận khoảng 4 câu " Đc sống trong hòa bình là hạnh phúc của mỗi người"

giúpppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppp

Calli: Lắm acc thế? Có thể 1 trong các acc phụ của tui đã buff cho acc chính đấy :)

Giúp mik giải bài này vs ạ mik vote 5*

Ai giúp mik với, đc câu nào hay câu đó ạ!!!

Cho `AB` là dây cung của `(O;R)` và `I` là trung điểm của `AB(O ∉AB).` `a) CMR: OI ⊥ AB` `b)` Qua `I` vẽ dây cung `EF. CMR: EF \geq AB.` Tìm độ dài lớn nhất, độ dài nhỏ nhất của các dây quay quanh `I.` `c)` Cho `R=5cm, OI=4cm,` tính độ dài dây cung ngắn nhất qua `I.`

buồm quáaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến