Viết chương trình tính tổng S = 1+2+3+…+N. Với N là số nguyên nhập từ bàn phím? Sử dụng câu lệnh For..to..do

0 bình luận về “Viết chương trình tính tổng S = 1+2+3+…+N. Với N là số nguyên nhập từ bàn phím? Sử dụng câu lệnh For..to..do”

1. var
           n,kq,i: integer;
           begin
                   readln (n);
                   for i:= 1 to n do kq:= kq + i;
                   writeln (kq);
                   readln;
           end.

   Bình luận