Viết chương trình nhập n in ra tổng các chữ số n
2 câu trả lời
uses crt;
var n,t:int64;
begin
clrscr;
write('nhap n:');readln(n);
t:=0;
while n<>0 do
begin
t:=t+n mod 10;
n:=n div 10;
end;
write('t=',t);
readln
end.
$#Zen$
uses crt;
var n,i,k,t:longint;s:string;
begin
clrscr;
write('nhap n:');readln(n);
str(n,s);
t:=0;
for i:=1 to length(s)do
begin
val(s[i],k);
t:=t+k;
end;
write('t=',t);
readln;
end.
Câu hỏi trong lớp
Xem thêm
- Đề 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
