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.
Var i , n : integer;
S: real;
Begin
write (' n ='); read (n);
S:= 0
For i:= 1 to n do S:= S+ 1/i;
Write (S);
Readln;
End.
program bai1;
var s,n,i:longint;
begin
write('N= ');readln(n);
s:=0;
for i:=1 to n do s:=s+1/i;
write('s= ',s);
readln
end.
Var i , n : Integer;
S : real;
Begin
write (' n = ') ; read (n);
S:=0
For i:=1 to n do S:= S + 1/i;
Writeln ( S );
Readln;
End.
program bai1;
var i,n,s:longint;
begin
write('N= ');
readln(n);
s:=1;
for i:=2 to n do s:=s+1/i;
write('s= ',s);
readln
end.
program Bai_1;
uses crt;
var n,i:integer; s:real;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do s:=s+1/(2*i);
write('S=',s);
readln;
end.
program Bai_2;
uses crt;
var n,i:integer; gt:longint; s:real;
begin
clrscr;
write('n='); readln(n);
gt:=1;
for i:=1 to n do
begin
gt:=gt*i;
s:=s+1/gt;
end;
write('S=',s);
readln;
end.
- nếu như khai báo biến S:real thì nên thêm độ rộng chữ số vào kq
Bài 1:
uses crt;
var a:real;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
a:=0;
i:=1;
while i<=n do
begin
a:=a+1/i;
i:=i+1;
end;
writeln(a:4:2);
readln;
end.
progarm Tinh_Tong;
uses crt;
var n,i:integer;
S:real;
begin;
clrscr;
writeln('nhap n = ');
readln(n);
s:=0;
for i :=1 to n do S :=S + 1/i;
writeln('tong S = ',S:5:2);
readln
end.
program bai1;
var t,i,n:longint;
begin
{repeat
write('N= ');
readln(n);
unntil n>0}sử dụng repeat until cũng đc
t:=1;i:=2;
while i<=n do
begin
t:=t+1/i;
i:=i+1;
end;
write('T= ',t);
readln
end.
progrỉnam bai1;
var n,i:longint;
s:real;
begin
write('N= ');readln(n);
s:=0;
for i:=1 to n do
s:=s+1/i*(i+1);
writeln('Tong la ',s);
readln
end.
1) var n,i:integer;
s:real;
begin
write('n=');readln(n);
s:=0;
for i:=1 to n do s:=s+(1/(i*(i+1)));
writeln(' Tong la: ',s);
readln;
end.
2) var n,i:integer;
s:real;
begin
write('n=');readln(n);
s:=0;
for i:=1 to n do s:=s+(1/((2*i)-1));
writeln(' Tong la: ',);
readln;
end.
program bai1;
var s,i,n:longint;
begin
write('N= '):readln(n);
i:=0;
s:=1;
while i<=n do
begin
if i mod 2=0 then s:=s*1/i;
i:=i+1;
end;
write('S= ',s);
readln
end.
Var i,n:integer;
S:real;
Begin
Write (' nhap n : ');
Readln(n);
S:=1;
While i<=n do S:=S*1/i;
Write (' tong S : ',S:5:6);
Readln;
end.
bài bạn nhờ
đây
cảm ơn bạn nhưng cái này chỉ có thể cho nhập lại giữa 2 số liền nhau chứ không thể kiểm tra hết một dãy n không trùng nhau
số khác nhau là phải kiểm tra tất cả các phần tử trong dãy..mình quên mất
số nguyên tố cùng nhau
tố
var n,m,a,k,cs1,cs2,i: integer;
mang, mangm : array [1..100] of integer;
begin
write('nhap n = ');
readln(n);
write('nhap M = ');
readln(M);
cs1 :=0; cs2 := 0;
for i := 2 to n do// tìm ước của n, kiểm tra ước có phải Nguyên tố ko, nếu phải đưa vào mảng: mang
begin
a := 2;
if (n mod i = 0) then begin
while i mod a <> 0 do a := a + 1;
if a = i then begin
cs1 := cs1 +1;
mang[cs1] := i;
end;
end;
end;
for i := 2 to m do// tìm ước của m, kiểm tra ước có phải Nguyên tố ko, nếu phải đưa vào mảng: mangm
begin
a := 2;
if (m mod i = 0) then begin
while i mod a <> 0 do a := a + 1;
if a = i then begin
cs2 := cs2 +1;
mangm[cs2] := i;
end;
end;
end;
write(n, ' co cac uoc nguyen to la : ');//in ra các ước nguyen tố của m, n
for i :=1 to cs1 do write(mang[i]:3);
writeln();
write(m, ' co cac uoc nguyen to la : ');
for i :=1 to cs2 do write(mangm[i]:3);
if cs1 > cs2 then k := cs1 else k := cs2; i := 1;// so sánh xem mảng n hay mảng m nhiều phần tử hơn
while (i <= k) do// so sánh hai mảng giống nhau ko
if (mangm[i] = mang[i]) then i := i +1 else break;
if (i <= k) then write(' => khong Td') else write(' => td');
readln;
Ct này đúng đó bạn chứ ct của bn ko chạy được mk nghĩ bn sẽ cần cái này nếu học pascal