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
2 câu trả lời
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
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
Câu hỏi trong lớp
Xem thêm
