viết chương trình tính tích và tổng của câu sau: A)1+3+5+7+-.+2*n-1 B)2+4+6+…2*n

0 bình luận về “viết chương trình tính tích và tổng của câu sau: A)1+3+5+7+-.+2*n-1 B)2+4+6+…2*n”

1. uses crt;
   var i,n,g,s:longint;
   begin
   clrscr;
   write(‘Nhap n : ‘); read(n);
   while n > 0 do
   Begin
   s:= s+2*n-1;
   g:=g+2*n;
   dec(n);
   end;
   write(‘A = ‘,s,’, B = ‘,g);
   readln;
   end.

   Bình luận

2. a) Program tong1;

   uses crt;

   var s,i,n: real;

   begin

   write(‘nhap n:’); readln(n);

   S:=0;

   For i:=1 to n do

   If i mod 2 =1 then s:=s+i;

   writeln(‘Tong la:’, s); readln;

   end.

   b)

   Program tong2;

   uses crt;

   var s,i,n: real;

   begin

   write(‘nhap n:’); readln(n);

   S:=0;

   For i:=1 to n do

   If i mod 2 =0 then s:=s+i;

   writeln(‘Tong la:’, s); readln;

   end.

   Bình luận