Câu 1 :Viết chương trình tính S=2/3+2/6+2/9+…+2/36 bằng while-.do Câu 2 : S:=0 For i:=1 to 50 do S:=s+1/2 Hãy biến đổi vòng lặp trên thành vòng l

0 bình luận về “Câu 1 :Viết chương trình tính S=2/3+2/6+2/9+…+2/36 bằng while-.do Câu 2 : S:=0 For i:=1 to 50 do S:=s+1/2 Hãy biến đổi vòng lặp trên thành vòng l”

1. Câu 2 

   Program      bai_tap;

   Uses        Crt; 

   Var.        s,i: integer;

   Begin

   clrscr;

   i:=1;     s:=0;

   while i <= 50 do

   begin;

   s:=s+1/2; 

   i:=i+1;

   end;

   writeln(‘ Kết quả là:=’,s);

   readln;

   End.

   Bình luận

2. câu 1:

   uses crt;

   var i: integer;

   s: real;

   begin

   clrscr;

   while i<=36 do

   begin

   i:=i+3;

   s:=s+(2/i);

   end;

   writeln (‘tong la: ‘,s:1:2);

   readln;

   end.

   câu 2:

   while i<=50 do

   begin

   i:=i+1;

   s:=s+1/2;

   end;

   Bình luận