viết chương trình tính tổng bình phương của n số nguyên, với n được nhập từ bàn phím

0 bình luận về “viết chương trình tính tổng bình phương của n số nguyên, với n được nhập từ bàn phím”

1. -uses crt;

   -var n,i,s:integer;

   -begin

   -clrscr;

   -write(‘nhap n=’); readln(n);

   -s:=0;

   -for i:=1 to n do

   -s:=s+sqr(i);

   -writeln(‘tong binh phuong cua ‘,n,’ so nguyen dau tien la: ‘,s);

   -readln;

   -end.

   # xin hay nhất ạ ????

   Bình luận

2. uses crt;
   var n,i,s:longint;
   begin
           clrscr;
           write(‘Nhap n: ‘); readln(n);
           for i:=1 to n do s:=s+(sqr(i));
           writeln(‘Tong binh phuong cua ‘,n,’ so nguyen: ‘,s);
           readln;
   end.

   Bình luận