Tính: S=1-2+3-4+.....+n (+n nếu n lẻ, -n nếu n chẵn)
nhập n (n>0) nếu n là số chẵn thì tính s=2+4+6+n
nếu số lẻ thì tính S=1+3+5+7+n
cái này giải bằng pascal ai biết giúp mình, mình tick cho
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.
cho dãy số un = 1- 1/22 + 2/32 - 3/42 + ... + i*(n-1)/n2 ( nếu n lẻ, i = -1.nếu n chẵn , n là 1 số nghuyên n> hoặc bàng 1). lập 1 quy trình tính un
nhập số nguyên dương N tính :
S=1+2+3+...+N nếu N lẻ
S=(N+1)/2 nếu N chẵn
viết chương trình với cấu trúc For...do
giúp mình với ạ . Thank you very much!!!
Lời giải :
program hotrotinhoc;
var s: real;
i,n: integer;
begin
readln(n);
s:=0;
for i:=1 to n do
if n mod 2=1 then s:=s+i;
if n mod 2=0 then s:=(n+1)/2;
write(s:1:0);
readln
end.
MỌI NGƯỜI ƠI GIÚP EM GIẢI BÀI NÀY VỚI Ạ EM CẢM ƠN !!!
(bài này là viết chương trình nha mọi người)
ĐỀ BÀI
Nhập số N là số nguyên dương từ bàn phím và thực hiện:
+ Nếu N là số chẵn thì S = 2 x 4 x 6 x .... x N
+ Nếu N là số lẻ thì S = 1 x 3 x 5 x .... x N
(mọi người giải gấp giúp em ạ tại ngày mai em nộp bài cho cô rồi ạ
#include <bits/stdc++.h>
using namespace std;
long long n,i,s;
int main()
{
cin>>n;
if (n%2==0)
{
s=1;
for (i=1; i<=n; i++)
if (i%2==0) s=s*i;
cout<<s;
}
else
{
s=1;
for (i=1; i<=n; i++)
if (i%2==1) s=s*i;
cout<<s;
}
return 0;
}
Biết Un+2= 2Un+1+3Un(nếu n lẻ) và Un+2=3Un+1+2Un(nếu n chẵn) U1 = 1 ; U2 = 2
a) Tính U25;U26;U27
b) Tính S25;S26;S27 biết Sn=U1+U2+U3+....+Un
um... bạn có thiếu đề ko z.. u1, u2 = bao nhiu z
Cho số nguyên không dấu N. Hãy kiểm tra tính chẵn lẻ của N. Trong bài toán này tính chẵn lẻ của N là số bit 1 trong biểu diễn nhị phân của N. Nghĩa là nếu trong biểu diễn nhị phân của N có chứa một số chẵn các bit thì N được coi là có tính chẵn, và ngược lại thì N có tính lẻ.Dòng đầu tiên của đầu vào chứa số nguyên T cho biết số bộ dữ liệu cần kiểm tra. Mỗi bộ dữ liệu gồm một dòng chứa số nguyên N.Ứng với mỗi bộ dữ liệu đầu vào, chương trình của bạn cần in ra một dòng chứa thông báo "odd" nếu N có tính lẻ và "even" nếu N có tính chẵn.(lập trình pascal)
hãy viết chương trình nhập vào 1 số nguyên dương N và thực hiện yêu cầu sau +nếu n là số chẵn thì S=2x4x6....xN +nếu n là số lẻ thì S=1x3x5... xN
var i,n:integer;
s:real;
begin
write('Nhap n = ');readln(n);
s:=1;
if n mod 2 = 0 then
begin
for i:=2 to n do
begin
s:=s*i;
i:=i+2;
end;
end
else
begin
for i:=1 to n do
begin
s:=s*i;
i:=i+2;
end;
write('Tong la ',s:10:2);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long n,i,s;
int main()
{
cin>>n;
if (n%2==0)
{
s=1;
for (i=1; i<=n; i++)
if (i%2==0) s=s*i;
cout<<s;
}
else
{
s=1;
for (i=1; i<=n; i++)
if (i%2==1) s=s*i;
cout<<s;
}
return 0;
}