Bài 1: Viết chương trình tính các tổng sau: (với n là số tự nhiên được nhập từ bàn phím) a) A = 1 + 2 + 3 + . . . + n c) C = 2 + 4 + 6 + . . . + n (n:

0 bình luận về “Bài 1: Viết chương trình tính các tổng sau: (với n là số tự nhiên được nhập từ bàn phím) a) A = 1 + 2 + 3 + . . . + n c) C = 2 + 4 + 6 + . . . + n (n:”

1. a) program a;

   uses crt;

   var i,n,tong:integer;

   begin

   clrscr;

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

   tong:=0;

   for i:=1 to n do

   begin

   tong:=tong+i;

   i:=i+1;

   end;

   writeln(‘tong =’,tong);

   readln;

   end.

   c)program c;

   uses crt;

   var i,n,tong:integer;

   begin

   clrscr;

   write(‘Nhap n:);readln(n);

   if n mod 2 = 1 then 

   repeat

   write(‘Nhap lai n:’);readln(n);

   until n mod 2 = 0;

   tong:=0;

   i:=2;

   repeat

   tong:=tong+i;

   i:=i+2;

   until i>n;

   writeln(‘tong =’,tong);

   readln;

   end.

   e)program e;

   uses crt;

   var i,n,tong:integer;

   begin

   clrscr;

   write(‘Nhap n:);readln(n);

   if n mod 2 = 0 then 

   repeat

   write(‘Nhap lai n:’);readln(n);

   until n mod 2 = 1;

   tong:=0;

   i:=1;

   repeat

   tong:=tong+i;

   i:=i+2;

   until i>n;

   writeln(‘tong =’,tong);

   readln;

   end.

   Bình luận

2. bài 1:

   câu a:

   program oken;

   uses crt;

   var i,n,a:longint;

   begin

   clrscr;

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

   for i:=1 to n do

     a:= a+i;

   writeln(‘A= ‘,a);

   readln;

   end.

   câu b:

   program oken;

   uses crt;

   var c,i,n:longint;

   begin

   clrscr;

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

   for i:=1 to n do

      if i mod 2 = 0 then c:=c+i;

   writeln(‘C= ‘,c);

   readln;

   end.

   câu c:

   program oken;

   uses crt;

   var e,n,i:longint;

   begin

   clrscr;

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

   for i:=1 to n 

     if i mod 2 =1 then e:=e+i;

   writeln(‘E= ‘,e);

   readln;

   end.

   Bình luận