Quảng cáo
1 câu trả lời 700
4 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
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK44787
-
Hỏi từ APP VIETJACK26411
Gửi báo cáo thành công!