S:=0; For i:=2 to 50 do S:=s + i/2; Hãy biến đổi vòng lặp trên 1 thành vòng lặp while…do giúp mình với

0 bình luận về “S:=0; For i:=2 to 50 do S:=s + i/2; Hãy biến đổi vòng lặp trên 1 thành vòng lặp while…do giúp mình với”

1. program phantuyen;

   uses    ctr;

   var       i,n : integer;

               S    : longint;

   begin

   clrscr;

   S:=0;  i:=2;

   while (i>=2) to 50 do

   begin

   S:=S+i/2;

   i:=i+1;

   end;

   write(s);

   readln

   end.

   Bình luận

2. i:=1;

   while i<=50 do

   begin

   i:=i+1;

   s:=s+(i/2);

   end;

   Bình luận