Viết chương trình tính trung bình cộng n số thực nhập từ bàn phím
Những câu hỏi liên quan
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.
Đúng 1
Bình luận (1)
Viết chương trình nhập số N số thực từ bàn phím vào một mảng tình trung bình cộng các số vừa nhập
program TinhTBC;
uses crt;
var
N, i: integer;
Tong, TBC : real;
A: array[1..100] of real;
begin
write('Nhap so phan tu mang N = ');
readln(N);
writeln('Nhap cac phan tu cua mang: ');
for i:=1 to N do
begin
write('A[', i, '] = ');
readln(A[i]);
end;
Tong := 0;
for i:=1 to N do
Tong := Tong + A[i];
TBC := Tong / N;
writeln('Tong cac phan tu: ', Tong:5:2);
writeln('Trung binh cong: ', TBC:5:2);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình tính trung bình cộng n số thực \(x_1,x_2,x_3,...,x_n\) (các số n và\(x_1,x_2,x_3,...,x_n\) được nhập vào từ bàn phím). Sử dụng lệnh For...do.
Program HOC24;
var i,n: integer;
x: array[1..1000] of real;
tbc: real;
begin
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('x[',i,']='); readln(x[i]);
end;
tbc:=0;
for i:=1 to n do tbc:=tbc+x[i];
tbc:=tbc/n;
write('Trung binh cong la: ',tbc:6:2);
readln
end.
Đúng 0
Bình luận (0)
20 tháng 4 2023 lúc 21:15
viết chương trình nhập 1 dãy số nguyên gồm n phần tử, tính trung bình cộng dãy số vừa nhập (n đc nhập từ bàn phím) trong thony
N=int(input(‘n=’))
A=[0]*n
For I in range(0,n):
A=int(input(a[‘+str(i+1)+’]=’))
S=s+a[i]
S1 =s/n
Print(s1)
Đúng 0
Bình luận (0)
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 một dãy gồm n số thực từ bàn phím. Tính tổng và trung bình cộng các số đó. In kết quả tính được ra màn hình.
Mọi người giúp em bài này với ạ!
uses crt;
var a:array[1..100]of real;
i,n:integer;
t:real;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cua day la: ',t:4:2);
writeln('Trung binh cong cua day la: ',t/n:4:2);
readln;
end.
Đúng 0
Bình luận (1)
viết chương trình nhập n số nguyên từ bàn phím. tính và in ra trung bình cộng các số chia hết cho 5 và 7
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.
Đúng 0
Bình luận (0)
Hãy viết chương trình pascal nhập tên và lớp của học sinh, nhập từ bàn phím dãy số nguyên gồm n phần tử(n nhập từ bàn phím) n<12, tính trung bình cộng của dãy số trên và in ra màn hình, in ra màn hình các số nguyên tố của dãy số trên.
program TinhTBCTimSoNT;
var
ten, lop: string;
n, i, tong, dem: integer;
A: array [1..11] of integer;
trung_binh: real;
function LaSoNguyenTo(x: integer): boolean;
var
i: integer;
begin
if x < 2 then
LaSoNguyenTo := false
else if x = 2 then
LaSoNguyenTo := true
else if x mod 2 = 0 then
LaSoNguyenTo := false
else
begin
i := 3;
while (i <= trunc(sqrt(x))) and (x mod i <> 0) do
i := i + 2;
LaSoNguyenTo := x mod i <> 0;
end;
end;
begin
// Nhập tên và lớp của học sinh
write('Nhập tên của học sinh: ');
readln(ten);
write('Nhập lớp: ');
readln(lop);
// Nhập dãy số nguyên và tính trung bình cộng
repeat
write('Nhập số phần tử của dãy số (n<12): ');
readln(n);
until n < 12;
tong := 0;
for i := 1 to n do
begin
write('Nhập phần tử thứ ', i, ': ');
readln(A[i]);
tong := tong + A[i];
end;
trung_binh := tong / n;
// In tên, lớp, dãy số và trung bình cộng ra màn hình
writeln('Học sinh: ', ten);
writeln('Lớp: ', lop);
write('Dãy số: ');
for i := 1 to n do
write(A[i], ' ');
writeln;
// In các số nguyên tố của dãy số ra màn hình
writeln('Các số nguyên tố của dãy số:');
for i := 1 to n do
if LaSoNguyenTo(A[i]) then
writeln(A[i]);
end.
Đúng 0
Bình luận (0)
viết chương trình sử dụng lệnh lặp for do để tính trung bình các số chẵn của n số thực các số n được nhập vào từ bàn phím
#include <bits/stdc++.h>
using namespace std;
int main()
{
int n,t=0,i,dem=0;
cin>>n;
for (int i=1; i<=n; i++)
if (i%2==0)
{
t=t+i;
dem++;
}
cout<<fixed<<setprecision(2)<<(t*1.0)/(dem*1.0);
return 0;
}
Đúng 0
Bình luận (0)