Bài tập 2 : Viết chương trình tính tích: P = 1 × 1/2 × 1/3x...x 1/100
Giúp mình với please
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
14 tháng 2 2020
var p:double;
i:longint;
begin
p:=1;
for i:=2 to 100 do
p:=p*(1/i);
write(p);
end.
14 tháng 2 2020
uses crt;
var p:real;
i:integer;
begin
clrscr;
p:=1;
for i:=1 to 100 do
p:=p*(1/i);
writeln('tich P',p:15);
readln;
end.
17 tháng 2 2021
Bài 1:
function canbac2(x:longint):real;
begin
canbac2:=sqrt(x);
end;
Bài 2:
function tong(n:longint):longint;
var s,i:longint;
begin
s:=0;
for i:=1 to n do
s:=s+i;
tong:=s;
end;
27 tháng 12 2020
**Mô tả thuật toán S:
- Bước 1: i←0; s←0;
- Bước 2: i←i+1;
- Bước 3: s←s+i;
- Bước 4: Nếu i <= 100 thì quay lại bước 2
- Bước 5: Xuất s
- Bước 6: Kết thúc thuật toán
**Mô tả thuật toán tính P:
- Bước 1: i←0; p←1;
- Bước 2: i←i+1;
- Bước 3: p←p*i;
- Bước 4: Nếu i <= 100 thì quay lại bước 2
- Bước 5: Xuất p
- Bước 6: Kết thúc thuật toán
20 tháng 2 2023
Câu 6:
uses crt;
var n,i:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
if n mod i=0 then write(i:4);
readln;
end.
5:
uses crt;
var n,i,dem:integer;
begin
clrscr;
readln(n);
dem:=0;
for i:=0 to n do
if i mod 2=1 then
begin
write(i:4);
dem:=dem+1;
end;
writeln;
writeln(dem);
readln;
end.
22 tháng 2 2021
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.