Viết chương trình tính s = 3 + 6 + 9 + 12 + ...+(3 n) với n là số nguyên dương được nhập từ bàn phím
2 câu trả lời
progam tinh_S;
uses crt;
var n,i:integer;
S:longint;
begin
clrscr;
write('Nhap n: '); readln(n);
S:=0;
for i:=1 to n do
S:=S+3*i;
write('S= ',s);
readln;
end.
uses crt;
var i,n,s: longint;
begin
clrscr;
write ('nhap n: ); readln (n);
for i:=1 to (3*n) do
if i mod 3=0 then s:=s+i;
writeln ('tong la: ',s);
readln;
end.
