Giúp em với ! Viết chương trình kiểm tra một số N nhập từ bàn phím xuất ra tổng các chữ số của nó 16/07/2021 Bởi Josephine Giúp em với ! Viết chương trình kiểm tra một số N nhập từ bàn phím xuất ra tổng các chữ số của nó
program tong_chu_so; uses crt; var n:longint; t:byte; begin clrscr; write(‘Nhap N: ‘); readln(n); t:=0; while n>0 do begin t:=t+n mod 10; n:=n div 10; end; write(‘Tong cac chu so la: ‘,t); readln; end. Bình luận
program tong_chu_so;
uses crt;
var n:longint;
t:byte;
begin
clrscr;
write(‘Nhap N: ‘); readln(n);
t:=0;
while n>0 do
begin
t:=t+n mod 10;
n:=n div 10;
end;
write(‘Tong cac chu so la: ‘,t);
readln;
end.
Hình ‘-‘