KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
uses crt; var n,i,s:integer; begin clrscr; i:=0; write(‘Nhap n: ‘); readln(n); n:=n*3; while i<=n do begin inc(s,i); inc(i,3); end; write(s); readln; end.
program phuongt; uses crt; var s, n, i: integer; begin clrscr; write(‘Nhap n = ‘); readln(n); n:=3*n; i:=3; while i<=n do begin if i mod 3 = 0 then s:=s+i; i:=i+1; end; write(‘S = ‘, s); readln
uses crt;
var n,i,s:integer;
begin
clrscr;
i:=0;
write(‘Nhap n: ‘); readln(n);
n:=n*3;
while i<=n do
begin
inc(s,i);
inc(i,3);
end;
write(s);
readln;
end.
program phuongt;
uses crt;
var s, n, i: integer;
begin
clrscr;
write(‘Nhap n = ‘); readln(n);
n:=3*n;
i:=3;
while i<=n do
begin
if i mod 3 = 0 then s:=s+i;
i:=i+1;
end;
write(‘S = ‘, s);
readln
end.