Viết chương trình Pascal tính tổng các chữ số của số nguyên có 4 chữ số. VD: 2253 thì tổng là 2+2+5+3=12
2 câu trả lời
uses crt;
var n,x,y,d:longint;
begin
clrscr;
readln(n);
x := n; d := 0;
while n <> 0 do
begin
n := n div 10;
d := d + 1;
end;
y := 0;
while x <> 0 do
begin
y := y + x mod 10;
x := x div 10;
end;
if d = 4 then
writeln('Tong chu so la ',y)
else writeln('Wrong Number');
readln;
end.
Program Typlex271;
Uses crt;
Var x,sum: longint;
Begin
Writeln('Nhap x: '); Readln(x);
sum:=0;
While x<>0 do
Begin
sum:=sum+(x mod 10);
x:=x div 10;
End;
Writeln('Tong chu so: ',sum);
Readln
End.
#Xin CTLHN, chúc bạn học tốt
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
