Giải giúp mình bài tập pascal này..........?
Đề: Nhập số nguyên dương N. Tính tổng số chữ số của N.
Ví dụ N=123--> tổng: 1+1+1=3, N=7864-->tổng= 1+1+1+1=4
Phạm vi bài giải trong sách giáo khoa pascal 11học kỳ I thôi nha vì đây là đề kiểm tra HK
More Questions From This User See All
Answers & Comments
Verified answer
uses crt;
var n:longint;
kiso:byte;
begin
clrscr;
kiso:=0;
write('Nhap n = ');readln(n);
while n<>0 do
begin
n:=n div 10;
inc(kiso);
end;
writeln('So co ',kiso,' chu so');
readln;
end.
Pascal mình không rà nh nhÆ°ng mình Äá» xuất cho bạn cách giai quyết
Bạn nháºp và o N,khai báo thêm biến m và biến Äếm gán biến Äếm ban Äầu bằng 0
Thuáºt toán nhÆ° sau:
Bạn dùng vòng lặp while(n!=0) nếu Äúng thá»±c hiá»n các công viá»c sau
{
m=n%10; // cái nà y chia lấy sỠdư
n=n/10;// cái nà y chia lấy sỠnguyên
dem++;// tÄng biến Äếm lên 1 ÄÆ¡n vá»
}
sau Äó bạn chá» viá»c in biến Äếm ra là có kết quả
Có thá» và dụ nhÆ° sau bạn nháºp 123 nha
B1:Vòng while kiá»m tra khác 0 Äúng thá»±c hiá»n 123%10= 3 lúc nà y m=3,n=123/10 lúc nà y n=12,dem tÄng lên 1 là 1,cứ nhÆ° váºy khi nà o kiá»m tra Äc n=0 thì thoát lúc naỳ Äếm =3 chÃnh bằng sá» chữ sá» 123