2 câu trả lời
uses crt;
var s,n:longint;
begin
clrscr;
write('nhap n='); read(n);
s:=0;
while n>0 do
begin
s:=s+n mod 10;
n:=n div 10;
end;
write('tong=',s);
readln
end.
Program FNG;
Uses crt;
Var n,s: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
s:=0;
While n<>0 do
Begin
s:=s+n mod 10;
n:=n div 10;
End;
Write('S = ',s);
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
