Viết chương trình tính tổng các số tự nhiên từ 1 đến 20

Viết chương trình tính tổng các số tự nhiên từ 1 đến 20

0 bình luận về “Viết chương trình tính tổng các số tự nhiên từ 1 đến 20”

  1. program ct_btpt;

    uses crt;

      var i, S: integer;

    begin

      S:=0;

      for i:=1 to 20 do S:=S+i;

      write(‘Tong cac so tu nhien tu 1 den 20 la: ‘, S);

      readln

    end.

    Bình luận
  2. Program NN;
    Uses crt;
    Var i,s: longint;
    Begin
            Clrscr;
            s:=0;
            For i:=1 to 20 do s:=s+i;
            Write(‘S = ‘,s);
            Readln
    End.

    Bình luận

Viết một bình luận