viết chương trình sử dụng lệnh lặp whill... tính A=1+3+5+...+(2*n+1)
LK
Những câu hỏi liên quan
viết chương trình sử dụng câu lệnh lặp for...do tính S=1+1/2^3+1/3^3+...+1/n^3
Program HOC24;
var i,n: integer;
s: real;
begin
write('Nhap N: '); readln(n);
s:=0;
for i:=1 to n do s:=s+1/(i*i*i);
write('S = ',s:6:2);
readln
end.
Đúng 2
Bình luận (0)
program TongS;
var
n: Integer;
S: Real;
i: Integer;
begin
write('Nhap n: ');
readln(n);
S := 0;
for i := 1 to n do
begin
S := S + 1/Power(i,3);
end;
writeln('Tong S = ', S:0:2);
readln;
end.
Đúng 0
Bình luận (1)
Viết chương trình sử dụng câu lệnh lặp while..do tính S=1/1*2+1/2*2+1/3*2+...+1/n*2
Program HOC24;
var i,n: integer;
s: real;
begin
write('Nhap N: '); readln(n);
s:=0; i:=1;
while i<=n do
begin
s:=s+1/(i*2);
i:=i+1;
end;
write('S= ',s:6:2);
readln
end.
Đúng 1
Bình luận (0)
Sử dụng câu lệnh lặp while…do để viết chương trình sau: a) S= 1/1*2+1/2*3+...1/n*(n+1)
program Tinh_S;
var i,n:integer;
S:real;
begin
writeln('Nhap so n=') ; readln(n);
i:=1 ; S:=0;
while i<=n do
begin
S:=S+1/n*(n+1); i:=i+1;
end;
writeln('Tong S=',S);
readln
end.
Đúng 4
Bình luận (0)
program Tinh_S;
var i,n:integer;
S:real;
begin
writeln('Nhap so n=') ; readln(n);
i:=1 ; S:=0;
while i<=n do
begin
S:=S+1/n*(n+1); i:=i+1;
end;
writeln('Tong S=',S);
readln
end.
Đúng 1
Bình luận (0)
program tinh_tong_S;
var
n: integer;
i: integer;
S: real;
begin
write('Nhap n: ');
readln(n);
S := 0;
i := 1;
while i <= n do
begin
S := S + 1 / (i * (i + 1));
i := i + 1;
end;
writeln('Tong S la: ', S:0:2);
readln;
end.
Đúng 0
Bình luận (0)
sử dụng lệnh lặp while ...do để viết chương trình tính tổng
S=1/1+1/2+1/3+1/4+...+1/2n
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.
Đúng 2
Bình luận (0)
Viết đoạn chương trình sử dụng câu lệnh lặp để thực hiện a)In ra màn hình 50 dấu* b)Tính tổng 1+3+5+7+...+99
uses crt;
var i,s:integer;
begin
for i:=1 to 50 do writeln(*);
s:=0;
For i:=1 to 99 do while i mod 2 = 1 do s:=s+i;
writeln('tong cua phep tinh la',s); readln;
end.
Đúng 1
Bình luận (0)
uses crt;
var i,t:integer;
begin
clrscr;
for i:=1 to 50 do
write('*');
writeln;
t:=0;
for i:=1 to 100 do
if i mod 2=1 then t:=t+i;
writeln(t);
readln;
end.
Đúng 0
Bình luận (0)
viết chương trình sử dụng câu lệnh lặp for to do để tính tổng s=1+3+5+...+n,n là số nguyên nhập từ bàn phím.In kết quả ra màn hình
Uses crt;
var s,n,i: integer;
begin clrscr;
readln(n);
for i:=1 to n do if(n mod 2<>0) then s:=s+i;
writeln(s);
readln;
end.
Đúng 2
Bình luận (3)
viết chương trình tính tổng các số tự nhiên từ 1 đến N. Với số N là số tự nhiên bất kì do người sử dụng nhập và N > 5 lưu ý: sử dụng câu lệnh lặp For...do
Program HOC24;
var i,n: integer;
S:longint;
begin
write('Nhap n: '); readln(n);
s:=0;
for i:=1 to n do s:=s+i;
write('Tong la ',s);
readln
end.
Đúng 1
Bình luận (0)
u 3: sử dụng câu lệnh lặp for và câu lệnh lặp while viết chương trình pascal: A, Tính tổng các số chia hết cho 3 trong khoảng từ 1 đến n B, nhập vào 1 dãy gồm n số bất kì, tính tổng các số dương trong dãy vừa nhập C, nhập vào 1 dãy gồm n số bất kì, đếm trong dãy số vừa nhập có bao nhiêu số k (với k nhập từ bàn phím)
Uses Crt;
Var A : array [1..1000] of longint;
n, m, d, t, i, S, k : longint;
Begin
//Phan A
Clrscr;
Writeln(' Phan A ');
Write(' Ban hay nhap 1 so n bat ky: ');
Readln(n);
Write(' Cac so chia het cho ba tu 1 den ',n,' la: ');
For i:=1 to n do
If (i mod 3) = 0 then Write(' ',i);
//Phan B
Writeln;
Writeln(' Phan B ');
Write(' Ban hay nhap 1 so m bat ky: ');
Readln(m);
For i:=1 to m do
Begin
Write(' Ban hay nhap hang tu thu ',i,': ');
Readln(A[i]);
S:= S+A[i];
End;
Write(' Tong cua day so tren la: ',S);
//Phan C
Writeln;
Writeln(' Phan C ');
Write(' Ban hay nhap 1 so d bat ky: ');
Readln(d);
Write(' Ban hay nhap so K: ');
Readln(k);
For i:=1 to n do
Begin
Write(' Ban hay nhap hang tu thu ',i,': ');
Readln(A[i]);
If ((A[i] div k)=1)then t:=t+1;
End;
Write(' Co tat ca ',t,' so giong ',k);
Readln;
End.
Đúng 0
Bình luận (0)
Viết chương trình tính tổng nghịch đảo N số tự nhiên S= 1+1/2+1/3+...+1/N với N được nhập từ bàn phím. (sử dụng câu lệnh lặp for...do hoặc while...do...). Giúp e với ạ
Program HOC24;
var i,n: integer;
S: real;
begin
write('Nhap N: '); readln(n);
s:=0;
for i:=1 to N do s:=s+1/i;
write('S= ',s:5:2);
readln
end.
Đúng 0
Bình luận (0)