Viết chương trình nhập vào một số nguyên n rồi in ra màn hình tổng các chữ số của n

347

Tailieumoi.vn biên soạn và giới thiệu bộ câu hỏi Tin học gồm các kiến thức lý thuyết và thực hành, giúp học sinh ôn tập và bổ sung kiến thức cũng như hoàn thành tốt các bài kiểm tra môn Tin học. Mời các bạn đón xem:

Top 1000 câu hỏi thường gặp môn Tin học (Phần 5)

Câu 10: Viết chương trình nhập vào một số nguyên n rồi in ra màn hình tổng các chữ số của n

Lời giải:

uses crt;
var m,n,s:longint;
begin
clrscr;s:=0;
write('Nhap n: ');readln(n);
while n<>0 do
begin
m:=n mod 10;
n:=n div 10;
s:=s+m;
end;
write('Tong cac chu so cua n la: ',s);
readln
end.

Đánh giá

0

0 đánh giá