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.