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

0 bình luận về “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”

1. 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.

   Bình luận

2. 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.

   Bình luận