Viết chương trình tính tổng bình phương của n số với n nhỏ hơn hoặc bằng 10 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ố với n nhỏ hơn hoặc bằng 10 với n được nhập từ bàn phím”

1. uses crt;
   var A:array[1..10] of integer;
       i,n:byte; S:longint;
   begin
      clrscr;
      write(‘Nhap n (n<=10): ‘); readln(n);
      S:=0;
      for i:=1 to n do
      begin 
         write(‘Nhap phan tu thu ‘,i,’: ‘);
         readln(A[i]);
         S:=S+sqr(A[i]);
      end;
      write(‘Tong la: ‘,S);
      readln
   end.

   Bình luận

2. Program tinh_tong;

   Uses crt;

   Var A: array [1..10] of integer;

          n,i: byte;

          S:longint;

   Begin

   Write (‘nhap n=’); 

   Readln (n);

   For i:= 1 to n do

   Begin

   Write (‘nhap phan tu thu’,i,’=’);

   Readln (A[i]);

   end;

   S:=0;

   For i:=1 to n do

   S:= S+ A[i]*A[i];

   Writeln (‘Tong binh phuong cua n so  la:’,S);

   Readln

   End.

   Bình luận