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!!!
1/ viết chương trình tính tổng bình phương s= 1² +2²+3²+... + n² với n là số nguyên dương được nhập từ bàn phím 2/ viết chương trình tính tổng của n số lẻ đầu tiên với n là số nguyên dương được nhập từ bàn phím
1:
uses crt;
var n,i,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do
t:=t+i*i;
write(t);
readln;
end.
2
program bt2;
var i,n,t:integer;
begin
readln(n);
s:=0;
for i:=1 to n do
if i mod 2 = 1 then s:=s+i;
readln;
end.
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;
}
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;
}
cho S(n)=1/2+1/4+1/6+1/8...+1/n với n nguyên dương,chẵn
1. Viết hàm tính S(n).
2. Viết chương trình yêu cầu người dùng nhập số n nguyên, dương, chẵn và tính S(n).
Yêu cầu:
+ Viết code
Bài 2: Viết chương trình pascal nhập vào 1 số nguyên dương n. Nếu n =0 thì n! = 1. Nếu n > 0 thì n! = 1*2*3*...*n.
Bài 3:
Tính S6 = 1! + 2! + ... + n!
Với n được nhập từ bàn phím.
Giúp mình với. Thank you very much!
Mik học tin cx đc nhưng lâu quá rùi nên cx quên rùi
Lời giải:
Bài 2:
program hotrotinhoc;
var n,i: longint;
function tich(x: longint): longint;
var j,t: longint;
begin
t:=1;
for i:=1 to x do
t:=t*i;
tich:=t;
end;
begin
readln(n);
if n=0 then n:=1;
if n>0 then
write(tich(n));
readln
end.
Bài 3:
program hotrotinhoc;
var s: longint;
n,i: integer;
function tich(x: integer): longint;
var j: integer;
t: longint;
begin
t:=1;
for i:=1 to x do
t:=t*i;
tich:=t;
end;
begin
readln(n);
s:=0;
if n=0 then s:=1;
if n>0 then
for i:=1 to n do s:=s+tich(i);
write(s);
readln
end.
Bài 1: viết chương trình in ra các số chẵn là bội của 7 và nhỏ hơn hoặc bằng số nguyên dương N (với N được nhập). Yêu cầu nhập lại nếu a<=0.
Bài 2: Cho 2 số tự nhiên n,m. Viết chương trình tính tổng và tích cuả m chữ số cuối cùng của n.
Giup mình với ạ! mình cảm ơn!
Viết chương trình tính tổng nghịch đảo N số tự nhiên S= 1+1/2+1/3+...+1/N với N được nhập từ bàn phím. (sử dụng câu lệnh lặp for...do hoặc while...do...). Giúp e với ạ
Program HOC24;
var i,n: integer;
S: real;
begin
write('Nhap N: '); readln(n);
s:=0;
for i:=1 to N do s:=s+1/i;
write('S= ',s:5:2);
readln
end.
Viết chương trình tính tổng bình phương S = 1^+ 2^2 + 3^2 + … +n^2 , với n là số nguyên dương được nhập từ bàn phím.
Mn lm giúp mik bài này vs ạ. Mik cảm ơn ạ
Program HOC24;
var i,n: integer;
s: longint;
begin
write('Nhap n: '); readln(n);
s:=0;
for i:=1 to n do s:=s+sqr(i);
write('S= ' ,s);
readln
end.
Uses crt;
var i,n,y: integer;
begin clrscr;
readln(n);
for i:=1 to n do s:=i*i;
Writeln(s);
readln;
end.