Viết chương trình tìm và xuất giá trị N lớn nhất để tổng S=1+2+3+4+…+N <1000000

0 bình luận về “Viết chương trình tìm và xuất giá trị N lớn nhất để tổng S=1+2+3+4+…+N <1000000”

1. Program    tinh_tong ;

   Uses crt ;

   Var   s,n: integer ;

     Begin

     S:= 0 ; n:=0 ;

   While s<=1000000 do

   Begin n:= n+1 ; s:= s+n ;

   Writeln (‘ so n nho nhat de tong >1000000 la’, n);

   Writeln (‘ tong dau tien >1000000 la’,S);

   End.

   Bình luận

2. program oken;
   uses crt;
   var n,s: longint;
   begin
       clrscr;
       s:=0; n:=0;
       while s<1000000 do
           begin
               n:=n+1;
               s:=s+n;
           end;
       writeln(‘So can tim: ‘,n-1);
       writeln(‘Tong: ‘,s-n);
       readln;
   end.

   Bình luận