tính tổng các số chắn của dãy gồm 100 số tự nhiên đầu tiên bằng cách dùng While Cần các pác làm gấp 21/07/2021 Bởi Charlie tính tổng các số chắn của dãy gồm 100 số tự nhiên đầu tiên bằng cách dùng While Cần các pác làm gấp
Program tinhtong; Uses crt; var i,s:longint; begin clrscr; i:=1;s:=0; While i<100 do begin s:=s+i; i:=i+1; end; writeln(‘tong la:’,s); readln end. ~Xin hay nhất ạ~ Bình luận
Đáp an đây nhé bạn
~@hoangduong1767@~
Program tinhtong;
Uses crt;
var i,s:longint;
begin
clrscr;
i:=1;s:=0;
While i<100 do
begin
s:=s+i;
i:=i+1;
end;
writeln(‘tong la:’,s);
readln
end.
~Xin hay nhất ạ~