S=1/2 + 1/3 + 1/4 + .... 1/n
viết chương trình của bài toán trên
cứu em mai e thi r ạaaaaaaaa
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
9 tháng 6 2021
uses crt;
var i,n:integer;
s:longint;
begin
clrscr;
write('nhap n:');readln(n);
s:=0;
for i:=1 to n do
if i mod 2=1 then s:=s+i
else s:=s-i;
writeln('s= ',s);
readln;
end.
HN
2
VQ
25 tháng 3 2022
tham khảo
Program chuong_trinh_tinh_tong;
User crt;
var n,i:integer;
S:real;
begin;
write('nhap n = ');
readln(n);
s:=0;
for i :=1 to n do S :=S + 1/i;
writeln('tong S = ',S:5:2);
readln
end.
KS
25 tháng 3 2022
tham khảo
Program chuong_trinh_tinh_tong;
User crt;
var n,i:integer;
S:real;
begin;
write('nhap n = ');
readln(n);
s:=0;
for i :=1 to n do S :=S + 1/i;
writeln('tong S = ',S:5:2);
readln
end.
16 tháng 2 2022
Viết chương trình tính tổng các số chẵn từ 1->n
Uses CRT;
Var i,n,s:integer;
Begin clrscr;
Write('Nhap so n= ');Readln(n);
S:=0;
For i:=1 to n do
If i mod 2 = 0 do S:=S+i;
Writeln;
Write('tong cac so chan la ',S);
Readln;
End.
Viết chương trình tính tổng các số lẻ từ 1->n
program bai1;
var s,i,n:longint;
begin write('N= ');
readln(n); s:=0;
for i:=1 to n do if i mod 2<>0 then s:=s+i;
write('s= ',s);
readln
end.
Chúc em học tốt
4 tháng 3 2022
a: uses crt;
var i,n:integer;
s:real;
begin
clrscr;
s:=0;
for i:=1 to 100 do s:=s+1/i;
writeln(s:4:2);
readln;
end.
b:
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
s:=0;
i:=0;
while i<=100 do
begin
inc(i);
s:=s+1/i;
end;
writeln(s:4:2);
readln;
end.
D
7 tháng 11 2021
Program hoan_doi;
uses crt;
var x,y,temp:Integer;
begin
x:=3;y:=7;
Writeln('Gia tri cua x truoc khi doi: ',x);
Writeln('Gia tri cua y truoc khi doi: ',y);
temp:=x;
x:=y;
y:=temp;
Writeln('Gia tri cua x sau khi hoan doi: ',x);
Writeln('Gia tri cua y sau khi hoan doi: ',y);
Readln();
end.
Mô tả: Khai báo 3 biến kiểu số nguyên
-Ta gán 3 cho biến x, gán 7 cho biến y
-Sau đó gán giá trị của biến x cho biến temp (để lưu trữ giá trị của biến x);
-Ta gán giá trị của biến y cho biến x (lúc này giá trị của biến x đã bị đổi);
-Rồi gán giá trị của biến temp cho biến y (Giá trị không bị thay đổi theo biến x bởi vì trước khi thay đổi giá trị của biến x thành giá trị của biến y ta đã gán giá trị trước đó của biến x cho biến temp)
program tinh_toan;
uses crt;
var S;i:integer;
begin
S:=0;
for i:=2 to 100 do S:=S+1/i;
writeln(S);
readln;
end.
Var i,n:integer;
s:real;
Begin
Write('n = ');readln(n);
For i:=2 to n do s:=s+1/i;
Write('tong la ',s:10:2);
Readln;
End.