Question

[quanghuy huy]

Em hãy viết đoạn chương trình giải hai bài toán sau:
b1; tính tổng S= 3+6+9+12+.....+372
b2 : cho số nguyên dương N(0<N<100000). Hãy tính tổng các chữ số của N

Answer 1

[Nguyễn Lê Phước Thịnh]

Bài 1: 

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=3 to 372 do 

 if i mod 3=0 then s:=s+i;

writeln(s);

readln;

end.

Answer 2

[Nguyễn Lê Phước Thịnh]

Bài 2: 

uses crt;

var n,i,t,x,y,d:integer;

st:string;

begin

clrscr;

write('Nhap n='); readln(n);

str(n,st);

t:=0;

d:=length(st);

for i:=1 to d do 

  begin

val(st[i],x,y);

t:=t+x;

end;

writeln(t);

readln;

end.