viết chương trình tính tổng 1+2+3+4+…+n

0 bình luận về “viết chương trình tính tổng 1+2+3+4+…+n”

1. uses crt;

   var i,n,s: longint;

   begin

      crlscr;

            write (‘nhap n: ‘);  readln (n);

            for i:=1 to n do s:=s+i;

            writeln (‘tong la: ‘,s);

      readln;

   end.

   Bình luận

2. Program tinh_tong;

   Uses crt;

   Var s:longint; n,i:integer;

   Begin

   clrscr;

   write(‘nhap vào so n: ‘);readln(n);

   for i:=1 to n do s:=s+i;

   write(‘tong tren co ket qua la: ‘s);

   readln;

   End.

   $\text{@Vân}$

   $\text{#Chúc bạn học tốt nha}$

   $\text{#Mong câu trả lời hay nhất ạ}$

   Bình luận