Đào Nguyên
02/04/2004
| Số câu hỏi | 1 |
| Số câu trả lời | 0 |
| Điểm | 13 |
| Kết bạn | |
Bạn bè (0)
Hoạt động gần đây (1)
-
Đào Nguyên đã đặt câu hỏi: Câu lệnh lặp Cách đây 2 năm
Program Tong_chu_so;
Var s:string;
i:byte;
p:integer;{bien luu tong}
begin
write('Nhap so: ');readln(s);
for i:=1 to length(s) do p:=p+ord(s[i]);
p:=p-48*length(s);
writeln(p);
Readln
End
Điểm thưởng gần đây (2)
-
Đào Nguyên: Login đăng nhập hàng ngày (+2đ) Cách đây 2 năm
-
Đào Nguyên: Login đăng nhập hàng ngày (+2đ) Cách đây 2 năm
