viết chương trình tính tổng của sô tự nhiên đầu tiên

2 câu trả lời

program ct;

uses crt;

var n,i:integer;

      S:longint;

begin clrscr;

   writeln('Nhap so n: '); readln(n);

     S:=0;

   for i:=1 to n do

     S:=S+i;

   writeln('Tong la: ',S);

readln;

end.

Học tốt!

program oken;
uses crt;
var n,i,sum:longint;
begin
        clrscr;
        write('nhap so n: '); readln(n);
        sum:=0;
        for i:=1 to n do
                sum:=sum+i;
        writeln('Tong=',sum);
        readln;
end.

Câu hỏi trong lớp Xem thêm