Chuyển sang for do i:=1; while i<6 do begin i := i+2; end; writeln(i) ;

0 bình luận về “Chuyển sang for do i:=1; while i<6 do begin i := i+2; end; writeln(i) ;”

1. uses crt;
   var i ,a: integer;
   begin
   i:=1;
   for i:=1 to 5 do a:=i+2;
   write(a);
   readln
   end.

   Bình luận

2. s:=1;

   for i:=1 to 5 do

           s:=2+i;

   writeln(s);

   Bình luận