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

Vietjack.me giới thiệu bộ câu hỏi ôn tập Tin học có đáp án được biên soạn bám sát chương trình học giúp bạn ôn luyện và bổ sung kiến thức môn Tin học tốt hơn. Mời các bạn đón xem:

1 234 03/08/2023


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

Đề bài: 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.

1 234 03/08/2023


Xem thêm các chương trình khác: