Bài 1: Tính tổng S=1/2+1/4+1/6+…+1/n Bài 2:Nhập vào 1 số nguyên n. Tính các số <=n và chia hết cho 3 Bài 3: Viết chương trình tính tổng 100 số tự n

0 bình luận về “Bài 1: Tính tổng S=1/2+1/4+1/6+…+1/n Bài 2:Nhập vào 1 số nguyên n. Tính các số <=n và chia hết cho 3 Bài 3: Viết chương trình tính tổng 100 số tự n”

1. Bài 1:

   program Tin_hoc;

   uses crt;

   var i,n:integer;

         s:real;

   begin

   clrscr;

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

   s:=0;

   for i:= 1 to n do s:= s + 1/i;

   writeln(‘S = ‘,s);

   readln;

   end.

   Bài 2:

   program Tin_hoc;

   uses crt;

   var n,i,tong:integer;

   begin

   clrscr;

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

   tong:=0;

   for i:= 1 to n do if i mod 3 = 0 then tong:=tong+i;

   writeln(‘Tong cac so nguyen <=’,n,’ va chia het cho 3 la: ‘,tong);

   readln;

   end.

   Bài 3:

   program t;

   uses crt;

   var i,tong:integer;

   begin

   clrscr;

   tong:=0;

   for i:= 1 to 100 do tong:=tong+i;

   writeln (‘Tong cua 100 so tu nhien dau tien la: ‘,tong);

   readln;

   end.

   Bình luận