viết chương trình tính S=2+4+6+… Việc thực hiện chỉ kết thúc khi S đạt giá trị nhỏ nhất lớn hơn giá trị TONG nhập từ bàn phím. Khi đó hãy cho biết g

0 bình luận về “viết chương trình tính S=2+4+6+… Việc thực hiện chỉ kết thúc khi S đạt giá trị nhỏ nhất lớn hơn giá trị TONG nhập từ bàn phím. Khi đó hãy cho biết g”

1. program tinh_S;

   uses crt;

   var i,S,tong:integer;

   begin

           clrscr;

           write(‘Nhap TONG: ‘);  readln(tong);

           i:=1;  S:=1;

           while S<=tong do

                   begin

                           i:=i+1;

                           S:=S+i;

                   end;

           write(‘Gia tri nho nhat cua S lon hon ‘,tong,’ la ‘,S, voi i= ‘,i);

           readln;

   end.

   Bình luận

2. program tinh_S;

   uses crt;

   var i,S,tong:integer;

   begin

           clrscr;

           write(‘Nhap TONG: ‘);  readln(tong);

           i:=0;  S:=0;

           while S<=tong do

                   begin

                           i:=i+2;

                           S:=S+i;

                   end;

           write(‘Gia tri nho nhat cua S lon hon ‘,tong,’ la ‘,S, voi i= ‘,i);

           readln;

   end.

   Bình luận