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
Những câu hỏi liên quan
cho số tự nhiên N(1 N<10^6). Tính tổng sau : S= 1-2+3-4+5-6...+N
viết chương trình ra giúp vs
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.
Đúng 1
Bình luận (0)
Viết chương trình 1+2+3+...+1/t. Hôm nay cô cho bài này để ôn mai tớ thi r
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.
Đúng 3
Bình luận (3)
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.
Đúng 0
Bình luận (0)
16 tháng 2 2022 lúc 9:18
Viết chương trình tính tổng các số chẵn từ 1->n
Viết chương trình tính tổng các số lẻ từ 1->n
Giúp em với ạ:))em cảm ơn!!
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
Đúng 0
Bình luận (0)
Mọi người giúp mình câu này với ạ :
Tính tổng : S= 1-2-3+4+5-6-7+8+9-10-11+12+...+n
Viết chương trình pascal nhập vào một số n tính tổng từ 1 đến n theo 2 cách
Viết Chương trình tính tổng A=1+2+3+...n,n số tự nhiên được nhập từ bàn phím 2.Viết...........A=1+1/4+1/9+...1/n.n .N số tự nhiên được nhập từ bàn phím Cứu mk vs ngày mai mk thi r
GIÚP EM MN ƠI, MAI EM NỘP R Ạ T-T.
Xoá sạch màn hình kết quả, sử dụng vòng lặp While . do hoặc For..do viết chương trình tính tổng sau: S=1/1*2+1/2*3+1/3*4+.....+1/n*(n+1)
N nhập từ bàn phím
Program HOC24;
uses crt;
var i,n: integer;
s: real;
begin
clrscr;
write('Nhap n: '); readln(n);
s:=0;
for i:=1 to n do s:=s+1/(i*(i+1));
write('S= ',s:6:2);
readln
end.
Đúng 1
Bình luận (1)
Program HOC24;
var i,n: integer;
S: real;
begin
write('Nhap N: '); readln(n);
i:=1; s:=0;
while i<=n do
begin
s:=s+i*(i+1);
i:=i+1;
end;
write('S=',S:5:2);
readln
end.
Đúng 1
Bình luận (0)
Bài toán tính tổng : S=1+1/2+1/3+...+1/100
a.Nêu thuật toán và viết chương trình sử dụng câu lệnh For...to...do
b.Nêu thuật toán và viết chương trình sử dụng câu lệnh While...do
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.
Đúng 0
Bình luận (0)
Mọi người giúp e bài này với ạ. Mai e phải thi rồi II. Tự luận Bài 1: Viết chương trình có sử dụng hàm đưa ra màn hình số lượng các số nguyên tố từ 20 đến 50Bài 2: Viết chương trình có sử dụng hàm tính giai thừa của 1 số nguyên để đưa ra màn hình tổng 2 giai thừaBài 3: Viết chương trình có sử dụng hàm lũy thừa xy để đưa ra màn hình hiệu 2 lũy thừaBài 4: Viết chương trình có sử dụng hàm đưa ra màn hình các số chính phương từ 1 đến 100 ngăn cách nhau bởi dấu cách, biết số chính phương là số được t...
Đọc tiếp
Mọi người giúp e bài này với ạ. Mai e phải thi rồi
II. Tự luận
Bài 1: Viết chương trình có sử dụng hàm đưa ra màn hình số lượng các số nguyên tố từ 20 đến 50
Bài 2: Viết chương trình có sử dụng hàm tính giai thừa của 1 số nguyên để đưa ra màn hình tổng 2 giai thừa
Bài 3: Viết chương trình có sử dụng hàm lũy thừa xy để đưa ra màn hình hiệu 2 lũy thừa
Bài 4: Viết chương trình có sử dụng hàm đưa ra màn hình các số chính phương từ 1 đến 100 ngăn cách nhau bởi dấu cách, biết số chính phương là số được tạo ra từ bình phương của 1 số nguyên khác
Bài toán: Cho x=3, y=7. Hãy viết chương trình hoán đổi giá trị x và y
Câu 1: Xác định bài toán trên
Câu 2: Mô tả thuật toán của bài toán trên
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)
Đúng 0
Bình luận (0)