Viết chương trình sử dụng vòng lặp while....do,tính tích P=1*3*5*...*(2n-1)
K
Khách
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.
Những câu hỏi liên quan
16 tháng 3 2023
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.
1 tháng 5 2021
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+i;
inc(i);
end;
writeln(s);
readln;
end.
ML
16 tháng 3 2023
Tính tổng N số tự nhiên đầu tiên với N nhập từ bàn phím chứ bạn nhỉ?
H9
HT.Phong (9A5)
CTVHS
28 tháng 4 2023
Uses crt;
var i,t: integer;
begin clrscr;
i:=0;
while(i<=120) do begin
i:=i+1;
t:=t+i;
end;
write(t);
readln;
end.
7 tháng 4 2021
b)
uses crt;
var i,n:integer;
t:real;
begin
clrscr;
write('Nhap n='); readln(n);
i:=1;
t:=0;
while i<=n do
begin
t:=t+1/(i*(i+3));
i:=i+1;
end;
writeln(t:4:2);
readln;
end.
ML
7 tháng 3 2023
while..do
Program HOC24;
uses crt;
var i,n: integer;
S: longint;
begin
clrscr;
write('Nhap N: '); readln(n);
i:=0; s:=0;
while i<n do
begin
i:=i+1;
s:=s+i*(i+1);
end;
write('S=',S);
readln
end.
*Cái này tớ nghĩ nên dùng for...do
program help;
uses crt;
var n, i: integer;
P: real;
begin
clrscr;
writeln('Nhap n = '); read(n);
P:=0;
for i:=1 to n do
P:= P*(2*i-1);
writeln('Tich P = ', P);
readln
end.