Tin học Đề: viết chương trình tính tổng, tích của n số nguyên nhập vào từ bàn phím sau đó in ra màn hình kết quả tổng, tích của n số nguyên đó và cho

0 bình luận về “Tin học Đề: viết chương trình tính tổng, tích của n số nguyên nhập vào từ bàn phím sau đó in ra màn hình kết quả tổng, tích của n số nguyên đó và cho”

1. program tongtich;

   uses crt;

   var $i,n:integer;$

         $S,T:longint;$

   begin 

   clrscr;

   write(‘ n = ‘); readln(n);

   $S:=0; T:=1;$

   While $i<n$ do

   begin

             $S:=S+i;$

             $T:=T*i;$

             $i:=i+1;$

   end;

   writeln(‘ Tong cua ‘,n,’ so nguyen dau tien la: ‘,S);

   writeln(‘ Tich cua ‘,n,’ so nguyen dau tien la: ‘,T);

   writeln(‘ Tong kem hon tich ‘,T-S,’ don vi ‘);

   readln;

   end.

   Bình luận

2. program BT;

   uses crt;

   var A:array [1..500] of integer;

         n,i: integer;

         T,S: longint;

   Begin

            clrscr;

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

            S:=1;

            for i:=1 to n do

            begin

                     write(‘A[‘,i,’]=’); readln(A[i]);

                     T:=T+A[i];

                     S:=S*A[i];

            end;

            writeln(‘Tong = ‘,T);

            writeln(‘Tich = ‘,S:2:2);

            write(‘Tong kem tich ‘,S-T,’ don vi’);

            readln

   End.

   Bình luận