Tin học viết chương trình

[Huỳnh Nam Huy]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Nhập vào một số tự nhiên N có ba chữ số . Hãy tính tổng ba chữ số đó.

 

[Fairy Piece]

Nhập vào một số tự nhiên N có ba chữ số . Hãy tính tổng ba chữ số đó.

Program tong;
var n,so: integer;
begin
  readln(n);
  so:=0;
  while (n<>0) do
    begin
        so:=so+ n mod 10;
        n:=n div 10;
    end;
  writeln(so);
end.

 

[Huỳnh Nam Huy]

Program tong;
var n,so: integer;
begin
  readln(n);
  so:=0;
  while (n<>0) do
    begin
        so:=so+ n mod 10;
        n:=n div 10;
    end;
  writeln(so);
end.

bn ơi phần này là sao với lại tại sao mik ko phân ra từng chữ số hàng đơn vị, chục, trăm
so:=0;
while (n<>0) do

 

[Fairy Piece]

bn ơi phần này là sao với lại tại sao mik ko phân ra từng chữ số hàng đơn vị, chục, trăm
so:=0;
while (n<>0) do

thì cái bài này là z nè, tính tổng các chữ số của một số phải ko thì mình tính tổng cộng dồn, đầu tiên là hàng đơn vị rồi tới hàng trăm ...
ta sẽ tách dc số n=abc thành dạng n=ab*10 +c rồi cộng dồn c vào, rồi cứ bước tiếp theo thì tách ab= a*10 +b rồi lại cộng dồn b vào, việc này sẽ tiếp diễn cho đến khi ko tách dc nữa là lúc n=0

 

[Đậu Thị Khánh Huyền]

program CT;
uses crt;
var a,b,c integer;
begin
clrscr;
write('nhap cac chu so');
readln(a,b,c);
N:=a+b+c
writeln('tong cac chu so cua so co ba chu so',N:3:1)
readln;
end.

 

[Fairy Piece]

program CT;
uses crt;
var a,b,c integer;
begin
clrscr;
write('nhap cac chu so');
readln(a,b,c);
N:=a+b+c
writeln('tong cac chu so cua so co ba chu so',N:3:1)
readln;
end.

đề yêu cầu là tính tổng các chữ số của một số có 3 chữ số mà

 

[Đậu Thị Khánh Huyền]

đề yêu cầu là tính tổng các chữ số của một số có 3 chữ số mà

sau ddoskhi gõ các câu lệnh, bạn thực hiện các bước sau:
-Ấn f2 ddeeer lưu chương trình
- Ấn Ctrl + F9 để chạy chươn trình
- cho con số cần điền để tính tổng các chữ số nhé

 

[Fairy Piece]

sau ddoskhi gõ các câu lệnh, bạn thực hiện các bước sau:
-Ấn f2 ddeeer lưu chương trình
- Ấn Ctrl + F9 để chạy chươn trình
- cho con số cần điền để tính tổng các chữ số nhé

có lẽ mình với bn đang ko hiểu nhau rồi
đầu tiên là nhập 1 số có 3 chữ số rồi tính tổng các chữ số của số đó chứ ko phải là nhập 3 chữ số của một số rồi tính tổng các chữ số đó

 

[Đậu Thị Khánh Huyền]

có lẽ mình với bn đang ko hiểu nhau rồi
đầu tiên là nhập 1 số có 3 chữ số rồi tính tổng các chữ số của số đó chứ ko phải là nhập 3 chữ số của một số rồi tính tổng các chữ số đó

ak, xin lỗi nhé...mk ko hiểu í bạn

 

[ngocanh_bxl]

uses crt;
var n:word;
function tongcs(x:word):byte;
var s:string[3];
i,k,e:byte;
begin
str(x,s);
tongcs:=0;
for i:= 1 to length(s) do
begin
val(s,k,e);
tongcs:=tongcs+k;
end;
end;
begin
clrscr;
write('nhap so co 3 chu so '); readln(n);
write(tongcs(n));
readln
end.

 

[ĐứcNhật!]

- Gán tổng S với giá trị ban đầu là 0
- Sử dụng để lấy từng chữ số của số tự nhiên N bằng cách:
Lặp trong khi mà N còn > 0 thì
+ Gán k là chữ số cuối cùng của N.
+ Tiến hành cắt chữ số cuối cùng của N đi bằng việc lấy N chia cho 10.
+ Cộng dồn S: = S + k
Lặp lại cho đến khi N = 0 thì dừng