Viết chương trình tính tổng N số tự nhiên đầu tiên sao cho tổng lớn hơn 1200 thì dừng xuất ra số tự nhiên N và tổng S tính được =>Vote 5 sao cho ạ:3

Viết chương trình tính tổng N số tự nhiên đầu tiên sao cho tổng lớn hơn 1200 thì dừng xuất ra số tự nhiên N và tổng S tính được
=>Vote 5 sao cho ạ:3

0 bình luận về “Viết chương trình tính tổng N số tự nhiên đầu tiên sao cho tổng lớn hơn 1200 thì dừng xuất ra số tự nhiên N và tổng S tính được =>Vote 5 sao cho ạ:3”

  1. $#Quan$

    program bai_giai;

    uses crt;

    var n,s:integer;

    begin

         clrscr;

         n:=0;  s:=0;

         while s<=1200 do

              begin

                   n:=n+1;

                   s:=s+n;

              end;

         write(‘N= ‘,n,’ va S= ‘,s);

         readln;

    end.

    Bình luận
  2. program tong;

    uses crt;

    var N,S: integer;

    Begin

             clrscr;

             while S<=1200 do

             begin

                      N:=N+1;

                      S:=S+N;

             end;

             write(‘So N: ‘,N,’ ,  tong S = ‘,S);

             readln

    End.

    Bình luận

Viết một bình luận