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. uses crt;

   var i,s,tong: integer;

   begin

   clrscr;

   write (‘nhap tong: ‘);  readln (tong);

   while s<=tong do

   begin

   i:=i+2;

   s:=s+i;

   end;

   writeln (‘gia tri cua i: ‘,i);

   writeln (‘gia ti cua s: ‘,s);

   readln;

   end.

   Xin hay nhất nhé !!!

   Bình luận

2. uses crt;
   var i,n,s:longint;
   begin
   clrscr;
   readln(n);
   s:=0;i:=0;
   repeat
   i:=i+2;
   s:=s+i;
   until s>n;
   write(s,’ ‘,i);
   readln
   end.

   Bình luận