Mọi ng ơi giúp mình tin với :cần bao nhiêu số chẵn để tổng nhỏ hơn hoặc bằng 50

0 bình luận về “Mọi ng ơi giúp mình tin với :cần bao nhiêu số chẵn để tổng nhỏ hơn hoặc bằng 50”

1. program phuongt;

   uses crt;

     var t, d, i: integer;

   begin

               clrscr;

               t:=1; d:=0; i:=0;

               while t<=50 do

               begin

                          t:=t+i;

                          if i mod 2 = 0 then d:=d+1;

                          i:=i+1;

                          if t>50 then write(‘Can ‘, d, ‘ so chan de tong nho hon hoac bang 50’);

               end;

               readln

   end.

   Bình luận