Viết phương trình tính tổng của N số tự nhiên Với N số tự nhiên đầu tiên được nhập vào bàn phím

0 bình luận về “Viết phương trình tính tổng của N số tự nhiên Với N số tự nhiên đầu tiên được nhập vào bàn phím”

1. Program tinh_tong;

   Var n,i,s:longint;

   begin

   Read(n);

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

   Write(s);

   Readln

   End.

   Bình luận

2. Program tong;

   Uses crt;

   Var n, i, s:integer;

   Begin

   Clrscr;

   Write(‘Nhap n:’);

   Readln(n);

   s:=0;

   For i:=1 to n do

   s:=s+i;

   Writeln(‘Tong cac so tu nhien la:’,s);

   Readln;

   End.

   #XINCTLHN

   Bình luận