Đề 13 : Viết chương trình tính trung bình cộng của n ( n<=10 )n nhập từ bàn phím
Help me mai mình kiểm tra thực hành rồi giúp mình với nha everybody -.- !!
2: Viết chương trình sử dụng lệnh lặp để tính trung bình cộng của N số thực. Với số N và các số tính trung bình cộng được nhập vào từ bàn phím. Câu 3: Viết chương trình nhận biết một số tự nhiên N được nhập từ bàn phím có phải là số nguyên tố hay không.
Câu 3:
uses crt;
var n,i,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
if n>1 then
begin
kt:=0;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then kt:=1;
if kt=0 then writeln(n,' la so nguyen to')
else writeln(n,' la hop so');
end
else writeln(n,' khong la so nguyen to cung khong la hop so');
readln;
end.
viết chương trình tính trung bình cộng của n số tự nhiên đầu tiên (với n nhập từ bàn phím) lớp 8 môn tin
viết chương trình nhập hai số nguyên m,n sau đó tính trung bình cộng bình phương các số nguyên tử m đến n
em hãy viết chương trình tính trung bình cộng của 2 số nguyên m và n. giá trị của m và n được nhập vào từ bàn phím
var m,n: integer;
begin
writeln(' nhap so nguyen a: ');
read(a);
writeln(' nhap so nguyen b: ');
read(b);
writeln((m + n)/2);
readln;
end.
viết chương trình cho số dương N(N≤200) và dãy A,N số nguyên hãy tính tổng và trung bình cộng
N = int(input('Nhập số dương N (N <= 200): '))
A = [ ]
# Nhập dãy A
for i in range(N):
A.append(int(input('Nhập số nguyên thứ {}: '.format(i + 1))))
# Tính tổng và trung bình cộng
total = 0
for num in A:
total += num
mean = total / N
print('Tổng các số trong dãy A là: {}'.format(total))
print('Trung bình cộng của dãy A là: {:.2f}'.format(mean))
Viết chương trình nhập 2 số m và n kiểu số nguyên .Tính và in ra hình trung bình cộng của 2 số
#include <bits/stdc++.h>
using namespace std;
int m,n;
int main()
{
cin>>m>>n;
cout<<"Trung binh cong m va n la: "<<(m+n)/2;
Return 0;
}
Viết chương trình nhập vào một mảng số nguyên gồm n phần tử (n<=100) Tính và in ra màn hình trung bình cộng giá trị phần tử của mảng
Var a:array[1..100] of integer;
i,n:integer;
s:longint;
tbc:real;
Begin
Repeat
Write('n = ');readln(n);
Until (n>0) and (n<=100);
For i:=1 to n do
Begin
Write('Nhap phan tu thu ',i);readln(a[i]);
s:=s+a[i];
End;
tbc:=s/n;
Write('Trung binh cong la ',tbc:10:2);
Readln
End.
viết chương trình tính trung bình cộng các phan tu lẻ cua 1 mảng gồm N số nguyên nhâp bat ki tu ban phim voi N<=80
program trungbinhcong;
uses crt;
var a: array[1..80]of integer; tb: real; tong: integer; i,n,sl: byte; begin clrscr; writeln('nhap n: '); readln(n); for i:= 1 to n do begin writeln('nhap a[',i,']: '); readln(a[i]); end; tong:=0; sl:=0; for i:= 1 to n do if (a[i] mod 2 <> 0) then begin sl:=sl+1; tong:=tong+a[i]; end; tb:=tong/sl; writeln('trung binh cong cua cac phan tu le trong mang la: ', tb:4:3); readlnend.
Viết chương trình nhập vào một mảng gồm N số nguyên. Tính và thông báo các số chẵn, tổng số và trung bình cộng của các số chẵn đó
Tham khảo
uses crt;
var n,i,ta,td,d1,d2:integer;
a:array[1..100]of integer;
begin
clrscr;
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
td:=0;
d1:=0;
for i:=1 to n do
if a[i]>0 then
begin
td:=td+a[i];
inc(d1);
end;
writeln('Trung binh cong cac so duong la: ',td/d1:4:2);
d2:=0;
ta:=0;
for i:=1 to n do
if a[i]<0 then
begin
inc(d2);
ta:=ta+a[i];
end;
writeln('Trung binh cong cac so am la: ',ta/d2:4:2);
readln;
end.
viết chương trình cho 1 dãy số nguyên gồm n phần tử và tính trung bình cộng các số nguyên tố trong dãy
Program HOC24;
var i,n,d: integer;
t: real;
function nt(b: longint): boolean;
var j: longint;
begin
nt:=true;
if (b=2) or (b=3) then exit;
nt:=false;
if (b=1) or (b mod 2=0) or (b mod 3=0) then exit;
j:=5;
while j<=trunc(sqrt(b)) do
begin
if (b mod j=0) or (b mod (j+2)=0) then exit;
j:=j+6;
end;
nt:=true;
end;
begin
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
t:=0; d:=0;
for i:=1 to n do if nt(a[i]) then
begin
t:=t+a[i];
d:=d+1;
end;
write('Trung binh cong cac so nguyen to trong day: ',t/d:1:2);
readln
end.
Cách 2:
uses crt;
var a:array[1..100]of integer;
i,n,t,dem,j,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
dem:=0;
for i:=1 to n do
if a[i]>1 then
begin
kt:=0;
for j:=2 to a[i]-1 do
if a[i] mod j=0 then kt:=1;
if kt=0 then
begin
t:=t+a[i];
inc(dem);
end;
end;
writeln('Trung binh cong cac so nguyen to la: ',t/dem:4:2);
readln;
end.