TÍNH TỔNG CÁC CHỮ SỐ CỦA MỘT SỐ NGUYÊN nhập vào từ bàn phím
bác nào giải giùm em với
đưa ra thuật giải luôn nhé
TÍNH TỔNG CÁC CHỮ SỐ CỦA MỘT SỐ NGUYÊN nhập vào từ bàn phím
bác nào giải giùm em với
đưa ra thuật giải luôn nhé
À, định lười à. Thử be cái này lên xem thầy giáo cho mấy:
var i:integer;
s:string;
begin
write (' cho vao: '); readln(i);
str(i:0,s);
writeln('dai: ',length(s));
end.
Dùng phép div và mod để tính ra các số từ hàng đơn vị trở lên rùi tổng chúng nó lại.
uses crt;
var s:string;
i,tong,f,v:integer;
begin
clrscr;
readln(s);
for i:= 1 to length(s) do
begin
val(s[i],f,v);
tong:=tong+f;
end;
write('Tong = ',tong);
readln
end.
Sai à, tưởng là tính tổng các chữ số, hóa ra là tính tổng giá trị các chữ số à. Câu với cú, mải nghiên kứu IT rồi quên không học Tiếng Việt phỏng.
tổng:=0;
For i:=1 to length (s) do
tổng := tổng + byte(s[i])-byte('0');
được chửa.
Làm kiểu đó ngắn gọn dễ hiểu hơn kiểu này:
var so,tong: longint;
begin
write ('nhap: '); readln(so);
tong:=0;
repeat
tong:=tong+(so mod 10);
so:=so div 10;
until (so = 0);
writeln('tong: ',tong);
end.
Được sửa bởi huyphuc1981_nb lúc 19:23 ngày 19-09-2007
Bookmarks