2 câu trả lời
program window;
uses crt;
var n,m:longint;tong:byte;
BEGIN
clrscr;
write('Nhap n: ');readln(n);
tong:=0;m:=n;
while m>0 do
begin
tong:=tong+m mod 10;
m:=m div 10;
end;
writeln('Tong cac chu so cua ',n,' la: ',tong);
readln
END
Chúc bạn học tốt
Program tong;
Uses crt;
Var n , s , k: integer;
Begin
Read(N );
S := 0;
While ( N <> 0 ) do
Begin
k := N mod 10;
N := N div 10;
S := S + k;
End;
Writeln(S);
Readln;
End.
Ps: Mình quen viết C++ nếu sang Pascal có gì sai thì bạn có thể hỏi lại dưới phần comment nha.
- Đề 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
