Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Thuật toán: B1: Nhập N;
B2: A <--- 0; i <--- 1;
B3: A <--- A + ((2*i)/(2*i+1));
B4: i <--- i + 1;
B5: Nếu i > N thì thông báo A rồi kết thúc.
B6: Quay lại bước 3;
Bài 1:
uses crt;
var i,s:integer;
begin
clrscr;
s:=0;
for i:=10 to 50 do
if i mod 2=0 then s:=s+i;
writeln(s);
readln;
end.
Bài 2:
uses crt;
var a,i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
a:=0;
for i:=1 to n do
a:=a+i*(i+2);
writeln(a);
readln;
end.
program TinhTongWhileDo;
var
n, i: integer;
S: real;
begin
write('Nhap so n: ');
readln(n);
S := 0;
i := 1;
while i <= 2*n do
begin
S := S + 1/i;
i := i + 1;
end;
writeln('Tong S=1/1+1/2+1/3+1/4+...+1/2n la: ', S:0:2);
readln;
end.
uses crt;
var i,n,s:longint;
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do
s:=s+sqr((2*i-1));
writeln(s);
readln;
end.
program tinh_tong;
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
write('nhap n:');readln(n);
for i:=1 to n*2-1 do
if i mod 2=1 then s:=s+1/i;
writeln('tong la: ',s);
readln;
end.
program tinh_tong;
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
write('nhap n:');readln(n);
i:=1;
while i<=n*2-1 do
begin
s:=s+1/i;
i:=i+2;
end;
writeln('tong la: ',s);
readln;
end.
a)
program tinh_tong;
uses crt;
var n,i:integer;
tong:longint;
begin
clrscr;
write('nhap so n:');readln(n);
i:=1;tong:=0
while i<n do
begin
if i mod 2=1 then tong:=tong+i
else i:=i+1;
end;
tong:=tong+2*n;
writeln('tong la:',tong);
readln;
end.
b)
program tinh_tong;
uses crt;
var n,i:integer;
tong:longint;
begin
clrscr;
write('nhap so n:');readln(n);
i:=1;tong:=0
while i<n do
begin
if i mod 2=0 then tong:=tong+i
else i:=i+1;
end;
tong:=tong+(2*n-1);
writeln('tong la:',tong);
readln;
end.
b) uses crt;
var i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
i:=1;
while i<=2*n-1 do
begin
i:=i+1;
if i mod 2=0 then t:=t+i;
end;
writeln(t);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long i,n;
double s;
int main()
{
cin>>n;
s=0;
for (i=1; i<=n; i++)
s=s+((1*1.0)/(2*(i*1.0+1*1.0)));
cout<<fixed<<setprecision(2)<<s;
return 0;
}
hi anh
Lời giải:
Bài 1:
program hotrotinhoc;
var P: longint;
i,n: integer;
begin
write('n='); readln(n);
P:=1;
for i:=3 to n do
P:=P*i;
write(P);
readln
end.
Bài 2:
program hotrotinhoc;
var S: longint;
i,n: integer;
begin
write('n='); readln(n);
S:=1;
for i:=6 to n do
S:=S*((2*i)+1);
write(S);
readln
end.
Bài 3:
rogram hotrotinhoc;
var P: longint;
i,n: integer;
begin
P:=1;
for i:=6 to n do
P:=P*(2*i);
write(P);
readln
end.
Bài 4:
rogram hotrotinhoc;
var S: longint;
i,n: integer;
begin
P:=1;
for i:=1 to n do
P:=P*(1/(((2*n)+1)*((2*i)+3));
write(P);
readln
end.