TÍnh TỔng CÁc ChỮ SỐ CỦa MỘt SỐ NguyÊn

[nongdantangai]

Cần gì div + mod, nhập từ bàn phím mà
var ch:char;
i,kq:Integer;
begin
kq:=0;
Write('Nhap so:');
repeat
ch:=Readkey;
if(ch>=48 and ch<=57)then
begin
{Đổi dùm cái ch ra số, lưu vào i-không nhớ hàm...hehe}
kq:=kq+i;
end;
until ch=#13;{enter}
end.

[amida]

Có một cuộc tranh cãi con con mà trong đó nạn nhân là những người thiện chí và bọn càn quấy là những kẻ thiếu kiến thức

[huyphuc1981_nb]

Cần gì div + mod, nhập từ bàn phím mà
var ch:char;
i,kq:Integer;
begin
kq:=0;
Write('Nhap so:');
repeat
ch:=Readkey;
if(ch>=48 and ch<=57)then
begin
{Đổi dùm cái ch ra số, lưu vào i-không nhớ hàm...hehe}
kq:=kq+i;
end;
until ch=#13;{enter}
end.

số = bype(ch)-byte('0');
i:=số;

đúng yêu cầu chưa ?????
Không nên dùng ord, điều này sẽ tạo thành thói quen có hại khi chạy for win

[chooco_pie]

hic hic anh admin ơi cức bé My cái bài nỳ y nà: gấp lắm á :
Đề nè:
Cho mảng số thực vuông có tên là a có kích thước 2n x 2n .hãy lập các mảng mới bằng các khối vuông có kích thước n x n của mảng a theo cách sau : mảng ban đầu được cho trong tập tin nhom2.dat.Kết quả được lưu trong tập tin có tên ketqua2.dat
bài làm gởi theo hộp thư trong này cho My nha. Thank mấy anh trước á
Mong các anh giúp My nha... hjhj Rảnh My trả nợ bàng chầu trái cây được hem nè
yahoo: chooco_pie

[ngô sông]

#include<iostream.h>
using namespace std;
int main()
{
int x,s=0,i;
cout<<"nhap so tu nhien x can tinh ";
cin>>x;

while (x!=0){
i=x%10;
s+=i;
x=int(x/10);
}
cout<<"tong cac chu so cua so la "<<s<<"\n";
cin.ignore(2);
system("pause");
return 0;

}

[nhat_truong]

Oài, bài này thuộc dạng basic các bác có cần phải cãi nhau ghê vậy hem. Có cần thì qua mấy thread như tìm số nguyên tố hay khai căn số cực lớn í.
@huyphuc1981_nb: Mình đọc qua mấy post của bạn cũng thấy bạn là người có hiểu biết. Nhưng hình như bạn hơi tự phụ đấy bạn à. Khiêm tốn chút và kiềm chế chút đi bạn nhé, không mất gì đâu mà lại được nhiều thứ là khác!

Em đồng ý với bác cả hai tay hai chân
Đây là diễn đàn để mọi người thảo luận, nếu sai thì nhắc, cần gì chửi dzữ vậy
Cũng nhắc bác kia luôn: Cao nhân tất hữu cao nhân trị.
Rồi sẽ có người giỏi hơn chửi bác một trận thôi

[lehang_gb1]

#include<iostream.h>
using namespace std;
int main()
{
int x,s=0,i;
cout<<"nhap so tu nhien x can tinh ";
cin>>x;

while (x!=0){
i=x%10;
s+=i;
x=int(x/10);
}
cout<<"tong cac chu so cua so la "<<s<<"\n";
cin.ignore(2);
system("pause");
return 0;

}

Chương trình viết bằng PAscal
Var i,N,a,S:integer;
Begin
write('Nhap vao N:');
Readln(N);
while N<>0 do
Begin
a:=N mod 10;;
S:=S+a;
N:=N div 10;
end;
write('tons S=',S);
Readln
End.

[quockiet2525]

Mình Thấy Mấy bài trên cũng hay lắm đóa. tui xin mạng phép thêm một code nữa
Var st:string;
Function Dao(s: string):string;
Var
tam:string;
i: integer;
begin
s:=1234;
for i:=length (s) downto 1 do tam:=tam+s[i];
Dao:=tam;
End.
Begin
Write('Nhap ');Readln(st);
Write('So dao nguoc la ',dao(st));
Readln;
End.
Đi đổi tên chết không đổi mail: quockiet2525@yahoo.com.vn

[pascal co ban]

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.

hic trong pascal viết đc chữ "tổng" hồi nào vậy?

[dancuipascal]

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.

cái này là okie rồi tranh luận lằng nhằng wa"