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 của các số đó. với n đc nhập từ bàn phím
2 câu trả lời
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à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.