Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
uses crt;
var n,s:integer;
{--------------------chuong-trinh-con-nhap---------------------------}
procedure nhap(var a:integer);
begin
write('n='); readln(a);
end;
{-------------------chuong-trinh-con-tinh-tong-cac-chu-so-trong-1-so---------------------}
procedure tong(var x:integer);
var i,d,t,b,c,e:integer;
st:string;
begin
str(x,st);
t:=0;
d:=length(st);
for i:=1 to d do
begin
val(st[i],b,c);
t:=t+b;
end;
if t<10 then writeln(t)
else tong(t);
end;
{---------------------chuong-trinh-chinh------------------------}
begin
clrscr;
nhap(n);
tong(n);
readln;
end.
Program HOC24;
var a: array[1..1000] of integer;
i,n : integer;
t: longint;
begin
write('Nhap N: '); realdn(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do if a[i] mod 3 = 0 then t:=t+a[i];
write('Tong cac so la boi cua 3 trong danh sach la: ',t);
readln
end.
