tìm tổng nhỏ nhất >200 in tổng in số vong lặp chuyển về vòng lặp for.. to..do

0 bình luận về “tìm tổng nhỏ nhất >200 in tổng in số vong lặp chuyển về vòng lặp for.. to..do”

1. uses crt;
   var i,tong:byte;
   begin
      clrscr;
      for i:=1 to 200 do if s<=200 then tong:=tong+i;
      writeln(‘Tong la: ‘,tọng);
      readln
   end.

   Bình luận

2. program oken;
   uses crt;
   var i,s:longint;
   begin
           clrscr;
           for i:=1 to 200 do
                   if s<=200 then
                           s:=s+i;
           writeln(‘Tong: ‘,s);
           readln;
   end.

   Bình luận