Viết chương trình tính tổng S=12+22+…n2

0 bình luận về “Viết chương trình tính tổng S=12+22+…n2”

1. uses crt;

   var i,n:integer;

   s:longint;

   begin clrscr;

   write(‘nhap so n=’);

   readln(n);

   s:=2; i:=1;

   while i<=n do begin s:=s+10; i:=i+1; end;

   write(‘tong s=’, s);

   readln

   end.

   Bình luận