Viết thuật toán và chương trình tính tổng các số tự nhiên sao cho tổng đầu tiên nhỏ nhất lớn hơn 2020

0 bình luận về “Viết thuật toán và chương trình tính tổng các số tự nhiên sao cho tổng đầu tiên nhỏ nhất lớn hơn 2020”

1. Thuật Toán:

   B1: s←0; i←0;

   B2: Nếu S≤2020 chuyển đến B3, ngược lại chuyển đến B4.

   B3: i←i+1; S←S+i;và quay lại B2.

   B4: In kết quả: S và n là số tự nhiên nhỏ nhất sao cho S>2000 và kết thúc thuật toán. 

   Viết Chương Trình:

   program Bai_tap_1;
   uses crt;
   var s,i:longint;
   begin
           clrscr;
           s:=0; i:=1;
           while s<=2020 do
                   begin
                           s:=s+i;
                           i:=i+1;
                   end;
           writeln(‘Tong la: ‘,s);
           readln;
   end.

   Bình luận

2. Thuật Toán:

   B1: s←0; i←1;

   B2: Nếu S≤2020 chuyển đến B3, ngược lại chuyển đến B5.

   B3: s←s+i; i←i+1;

   B4: Quay lại B2.

   B5: In ra màn hình S.

   B6: Kết thúc thuật toán. 

   Viết Chương Trình:

   program oken;
   uses crt;
   var s,i:longint;
   begin
           clrscr;
           s:=0; i:=1;
           while s<=2020 do
                   begin
                           s:=s+i;
                           i:=i+1;
                   end;
           writeln(‘Tong la: ‘,s);
           readln;
   end.

   Bình luận