Viết chương trình lặp trong pascal : tính : a) S= 1/2 + 1/4 +1/6 +… + 1/20

0 bình luận về “Viết chương trình lặp trong pascal : tính : a) S= 1/2 + 1/4 +1/6 +… + 1/20”

1. program oooooo;

   ues crt;

   var i:longint;

   s:real;

   begin

   clrscr;

   write(‘Ket qua la :’);

   s:=0;

   for i:=1 to 20 do

   if i mod 2 =0 then s:=s+1/i;

   write(s:2:4);

   readln;

   end.

   Bình luận

2. Program tinhtobg;

   Uses crt;

   Var S,i: real;

   Begin

   For i=2 to 20 do

   Begin

   i:= 2;

   I:=i+2;

   S:=0;

   S:= s+1/i;

   End;

   Write(‘ vay tong S la ‘,S:2:2);

   Readln;

   End.

   Bình luận