viết chương trình tính: S=1+2+3+...n

2 câu trả lời

program oken;
uses crt;
var s,i,n: longint;
begin
    clrscr;
    write('Nhap n: '); readln(n);
    s:=0;
    for i:=1 to n do
        s:=s+i;
    writeln('Tong cac so tu 1->',n,': ',s);
    readln;
end.

Lúc trước mình có làm gửi bạn.

Câu hỏi trong lớp Xem thêm
2 lượt xem
2 đáp án
1 giờ trước