1. viết một chương trình nhập một số tự nhiên n từ bàn phím và tính tổng của n số tự nhiên đầu tiên

Bởi

1. viết một chương trình nhập một số tự nhiên n từ bàn phím và tính tổng của n số tự nhiên đầu tiên

0 bình luận về “1. viết một chương trình nhập một số tự nhiên n từ bàn phím và tính tổng của n số tự nhiên đầu tiên”

  2.  uses crt;
    var i,s,n: integer; 
    begin 
    clrscr; 
    write(‘Nhap vao so n = ‘);readln(n); 
    i:=1; 
    s:=0; 
    while i<=n do 
    begin 
    s:=s+i; 
    inc(i); 
    end; 
    writeln(‘Tong cua ‘,n,’ so tu nhien dau tien la ‘,S); 
    readln; 
    end.

    Bình luận

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