Viết chương trình nhập n, hãy tính tổng các số nhỏ hơn n Ví dụ n=10, s=1+2+3+4 giúp em với, mai em nộp bài rồi 30/07/2021 Bởi Isabelle Viết chương trình nhập n, hãy tính tổng các số nhỏ hơn n Ví dụ n=10, s=1+2+3+4 giúp em với, mai em nộp bài rồi
Uses crt;Var i,n,s:longint; Begin clrscr; write(‘n=’);readln(n); while s<=n do begin inc(i); s:=s+i; end; write(s); readln end. Bạn chịu khó hiểu nha, thay n bằng số cụ thể thì sẽ hình dung ra cách làm @_]`fuwahashi Bình luận
uses crt;var i,n,s:longint;beginclrscr; write(‘n=’);readln(n); for i:=1 to n do s:=s+i; writeln(‘s= ‘,s);readlnend Bình luận
Uses crt;
Var i,n,s:longint;
Begin
clrscr;
write(‘n=’);readln(n);
while s<=n do
begin
inc(i); s:=s+i;
end;
write(s);
readln end.
Bạn chịu khó hiểu nha, thay n bằng số cụ thể thì sẽ hình dung ra cách làm
@_]`fuwahashi
uses crt;
var i,n,s:longint;
begin
clrscr;
write(‘n=’);readln(n);
for i:=1 to n do s:=s+i;
writeln(‘s= ‘,s);
readln
end