1, viết chương trình tính tích P=1.2.3 … n , vói n đc nhập từ bàn phím 2, viết chương trình nhập n số nguyên từ bàn phím và in ra giá trị trung bình

0 bình luận về “1, viết chương trình tính tích P=1.2.3 … n , vói n đc nhập từ bàn phím 2, viết chương trình nhập n số nguyên từ bàn phím và in ra giá trị trung bình”

1. Câu 1: 

   Program tinh_tich;

   Uses crt;

   Var i,n,P: longint;

   Begin

   Writeln (‘nhap n=’); 

   Readln (n);

   P:=1;

   For i:=1 to n do 

   P:=P*i;

   Writeln (‘Tich P la:’,P);

   Readln

   End.

   Câu 2:

   Program tinh_tbc;

   Uses crt;

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

                  S,i,n : integer;

                  Tbc : real;

   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];

   Tbc:= S/n;

   Writeln (‘Trung binh cong cua n so nguyen la:’, Tbc:8:2);

   Readln 

   End.

   Bình luận

2. Bài 1:

   uses crt;

   Var n,tich: int64; i:longint;

   Begin

   clrscr;

   Write(‘Nhap N =’);

   Read(n);

   tich:=1;

   For i:=1 to n do

   tich:=tich*i;

   Write(‘Tich = ‘,tich);

   End.

   Bài 2:

   uses crt;

   Var a:array[1..1000000] of int64;

    n, tong:int64; i:longint; tbc: real;

   Begin

   clrscr;

   Readln(n);tong:=0;

   For i:=1 to n do

   Begin

   Read(a[i]);

   tong:=tong+a[i];

   End;

   tbc:= tong/n;

   Write(tbc:0:2);

   End. 

   Có gì thì góp ý để mình sửa nha.

   Bình luận