Ai giup mk với
Viết Pt nhập vào số nguyên dương n. Tính trung bình cộng các số chẵn và trung bình cộng các số lẻ từ 1 đến n
Có thể giải thích một tẹo cho mk khi giải xog nha, tẹo thoi cảm ơn
viết chương trình nhập số n, nếu n là số chẵn thì tính tổng các số chẵn từ 1 tới n, nếu n là số lẻ thì tính trung bình cộng các số lẻ từ 1 tới n.
uses crt;
var m,n,t,i:integer;
begin
clrscr;
write('Nhap m='); readln(m);
write('Nhap n='); readln(n);
t:=0;
for i:=m to n do
if i mod 2=0 then t:=t+i;
writeln('Tong cac so chan tu ',m,' den ',n,' la: ',t);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long n,i,t;
int main()
{
cin>>n;
if (n%2==0)
{
t=0;
for (i=1; i<=n; i++) if (i%2==0) t+=i;
}
else
{
t=0;
for (i=1; i<=n; i++) if (i%2!=0) t+=i;
}
cout<<t;
return 0;
}
Viết chương trình nhập số n, nếu n là số chẵn thì tính tổng các số chẵn từ 1 tới n, nếu n là số lẻ thì tính trung bình cộng các số lẻ từ 1 tới n
tk
uses crt;
var m,n,t,i:integer;
begin
clrscr;
write('Nhap m='); readln(m);
write('Nhap n='); readln(n);
t:=0;
for i:=m to n do
if i mod 2=0 then t:=t+i;
writeln('Tong cac so chan tu ',m,' den ',n,' la: ',t);
readln;
end.
uses crt;
var n,i,t,dem:integer;
begin
clrscr;
readln(n);
if n mod 2=0 then
begin
t:=0;
for i:=1 to n do
if i mod 2=0 then t:=t+i;
writeln(t);
end
else
begin
t:=0;
dem:=0;
for i:=1 to n do
if i mod 2=1 then
begin
t:=t+i;
dem:=dem+1;
end;
writeln(t/dem:4:2);
end;
readln;
end.
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.
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 thuật toán giải bài toán: Cho số nguyên dương N và dãy số A có N phần tử A1, A2, …, AN. Hãy tính trung bình cộng các số lẻ trong dãy A.
#include <bits/stdc++.h>
using namespace std;
long long n,i,x,t,dem;
int main()
{
cin>>n;
dem=0;
t=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%2!=0)
{
dem++;
t=t+x;
}
}
double s=t*1.0/dem*1.0;
cout<<fixed<<setprecision(2)<<s;
return 0;
}
Thuật toán liệt kê:
Bước 1: Nhập n và dãy A1,A2,..,An
Bước 2: TB←0; i←1; d←0;
Bước 3: Nếu i>n thì in ra TB/d và kết thúc
Bước 4: Nếu Ai mod 2=1 thì TB←TB+Ai và d←d+1;
Bước 5: i←i+1, quay lại bước 3
Tìm input output và cách giải cho các bài toán sau:
a. Tính tổng các số nguyên dương từ n đến m, với n,m thuộc tập số nguyên N và n<=m.
b.Xét tính chẵn lẻ của một số nguyên a.
c.Tính điểm trung bình hai môn Văn và toán của 5 học sinh
Giúp em với ạ,em cảm ơn nhiều
Viết chương trình nhập vào dạy n số nguyên(0<n<=10^6)
in dãy vừa nhập lên màn hình(theo hàng,mỗi số cách nhau 1 dấu phẩy)
-Tính tổng là trung bình cộng các phần tử tại các vị trí chẵn
-Tính số lượng các sô nguyên tố có trong dãy
uses crt;
var a:array[1..100]of integer;
i,n,dem,tb,dem1,kt,j:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
write(a[i],',');
tb:=0;
dem:=0;
for i:=1 to n do
if i mod 2=0 then
begin
tb:=tb+a[i];
inc(dem);
end;
writeln('Trung binh cong cac phan tu o vi tri chan la: ',tb/dem:4:2);
dem1:=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 inc(dem1);
end;
writeln('So so nguyen to la: ',dem1);
readln;
end.
nhập vào từ bàn phím n số nguyên .tính trung bình cộng các số lẻ trong dãy
uses crt;
var a:array[1..100]of integer;
i,n,dem,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
t:=0;
for i:=1 to n do
if a[i] mod 2<>0 then
begin
inc(dem);
t:=t+a[i];
end;
writeln('Trung binh cong cac so le la: ',t/dem:4:2);
readln;
end.
Ai giup mk với
Nhập vào số nguyên dương n. Tinh trung bình cộng các số chẵn và trung bình cộng các số lẻ
Hepl me