Viết chương trình để tính tổng các cặp tích số lẻ như sau:A=1.3+3.5+5.7+... với n là số tự nhiên được nhập vào bàn phím
2 câu trả lời
Program BTH;
uses crt;
var n,i,s:longint;
begin
clrscr;
write('Nhap n: '); readln(n);
s:=0;
For i:=1 to n*2 do
If i mod 2=1 then s:=s+i*(i+2);
writeln('Tong day so tren la: ',s);
readln;
end.
program oken;
uses crt;
var n,i,a:longint;
begin
clrscr;
write('nhap n: '); readln(n);
a:=3;
for i:=3 to n do
a:=a+i*(i+2);
writeln('A=',a);
readln;
end.