Tin học Nhập số bất kỳ có 3 chữ số rồi tính tổng các chữ số của số đó. 25/07/2021 By Samantha Nhập số bất kỳ có 3 chữ số rồi tính tổng các chữ số của số đó.
program tinhtongcs; uses crt; var t,n:integer; begin clrscr; t:=0; write(‘Nhap so can tinh: ‘); readln(n); while n<>0 do begin t:=t+n mod 10; n:=n div 10; end; write(‘Tong cac chu so la: ‘,t); readln end. Trả lời
uses crt; var a:integer; tong:byte; BEGIN clrscr; write(‘Nhap 1 so co 3 chu so: ‘); readln(a); tong:=a mod 10; a:=a div 10; tong:=tong+a mod 10; a:=a div 10; tong:=tong+a mod 10; writeln(‘Tong cac chu so do la: ‘,tong); readln; END. Trả lời
program tinhtongcs;
uses crt;
var t,n:integer;
begin
clrscr;
t:=0;
write(‘Nhap so can tinh: ‘); readln(n);
while n<>0 do
begin
t:=t+n mod 10;
n:=n div 10;
end;
write(‘Tong cac chu so la: ‘,t);
readln
end.
uses crt;
var a:integer;
tong:byte;
BEGIN
clrscr;
write(‘Nhap 1 so co 3 chu so: ‘);
readln(a);
tong:=a mod 10;
a:=a div 10;
tong:=tong+a mod 10;
a:=a div 10;
tong:=tong+a mod 10;
writeln(‘Tong cac chu so do la: ‘,tong);
readln;
END.