Viết chương trình: Nhập vào 1 số N không quá 10 chữ số. Tính tổng các chữ số của N
2 câu trả lời
uses crt;
var n, r: int64;
begin
clrscr;
readln(n);
while n > 0 do begin
inc(r, n mod 10);
n:=n div 10;
end;
writeln(r);
readln;
end.
var tong,n,a:longint;
begin
read(n);
while n<>0 do
begin
a:=n mod 10;
n:=n div 10;
tong:=tong+a;
end;
write(tong);
readln;
readln;
end.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
