Quảng cáo
1 câu trả lời 744
5 năm trước
Program NhatNgu;
Uses crt;
Var m,d,s: longint;
Begin
Clrscr;
Write('Nhap m: '); Readln(m);
d:=0; s:=0;
While m<>0 do
Begin
s:=s+m mod 10;
inc(d);
m:=m div 10;
End;
Writeln('Co ',d,' chu so');
Write('Tong cac chu so = ',s);
Readln
End.
Quảng cáo
Bạn muốn hỏi bài tập?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK44971
-
Hỏi từ APP VIETJACK27113
Gửi báo cáo thành công!
