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 giá trị của S và giá trị biến i ở lần cộng cuối
GIÚP MÌNH VỚI!!! Gấp ak
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
By Elliana
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é !!!
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.