Tin học Nhập n bất kỳ sau đó in ra tổng các chữ số của n 17/08/2021 By Ariana Nhập n bất kỳ sau đó in ra tổng các chữ số của n
uses crt; var s,n:longint; begin clrscr; write(‘nhap n=’); read(n); s:=0; while n>0 do begin s:=s+n mod 10; n:=n div 10; end; write(‘tong=’,s); readln end. Trả lời
Program FNG;Uses crt;Var n,s: longint;Begin Clrscr; Write(‘Nhap n: ‘); Readln(n); s:=0; While n<>0 do Begin s:=s+n mod 10; n:=n div 10; End; Write(‘S = ‘,s); ReadlnEnd. Trả lời
uses crt;
var s,n:longint;
begin
clrscr;
write(‘nhap n=’); read(n);
s:=0;
while n>0 do
begin
s:=s+n mod 10;
n:=n div 10;
end;
write(‘tong=’,s);
readln
end.
Program FNG;
Uses crt;
Var n,s: longint;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
s:=0;
While n<>0 do
Begin
s:=s+n mod 10;
n:=n div 10;
End;
Write(‘S = ‘,s);
Readln
End.