Tính tích 1/2 đến 1/7 dùng while do
Những câu hỏi liên quan
Hãy viết chương trình tính tổng tích, của các số tự nhiên từ 1 đến N (n được nhập từ bàn phím) bằng cách dùng câu lệnh For...do hoặc While...do?
program TinhTongTich;
var
N, i, Tong, Tich:integer;
begin
writeln('Nhap so nguyen duong N:');
readln(N);
i:=1;
Tong:=0;
Tich:=1;
while i<=N do
begin
Tong:=Tong+i;
Tich:=Tich*i;
i:=i+1;
end;
writeln('Tong cac so tu 1 den ', N, ' la: ', Tong);
writeln('Tich cac so tu 1 den ', N, ' la: ', Tich);
readln;
end.
Đúng 0
Bình luận (0)
1) dùng lệnh lặp While...do đếm các số nguyên tố từ 1 đến n (n là số nhập từ bàn phím)
2) dùng lệnh lặp While...do để tính tổng các số nguyên tố được nhập tuè bàn phím.
mn giải hộ mình với ạ. mình xin cảm ơn ạ
Hãy viết chương trình tính tổng tích, của các số tự nhiên từ 1 đến N (n được nhập từ bàn phím) bằng cách dùng câu lệnh For...do hoặc While...do?
Giúp em với còn 1 câu này nữa là em xong bài rồi
viết chương trình tính tổng của các số tự nhiên từ 1 đến 100 KHÔNG DÙNG LỆNH while do
#include <bits/stdc++.h>
using namespace std;
long long i,t;
int main()
{
t=0;
for (i=1;i<=100;i++)
t=t+i;
cout<<t;
return 0;
}
Đúng 0
Bình luận (0)
câu 6: dùng vòng lặp for...do hoặc while...do viết chương trình tính và in ra tổng sau: s=1+1/2+1/3+....+1/50
var s, i: real;
begin
s := 0;
for i := 1 to 50 do
s := s + 1/i;
writeln('Tong s = ', s:0:2);
end.
Đúng 2
Bình luận (1)
while..do
Program HOC24;
var i: integer;
s: real;
begin
i:=1;
while i<=50 do
begin
s:=s+i;
i:=i+1;
end;
write('S = ',s:6:2);
readln
end.
Đúng 1
Bình luận (0)
câu 6: dùng vòng lặp for...do hoặc while...do viết chương trình tính và in ra tổng sau: s=1+1/2+1/3+....+1/50
giải giúp em ạ
Var i:integer;
s:real;
Begin
For i:=1 to 50 do
s:=s + 1/i;
Write('Tong la ',s:10:2);
Readln;
End.
Đúng 1
Bình luận (0)
VCT in ra các số tự nhiên từ 1 đến 100 và từ 1 đến n dùng lệnh while...do
giúp vs !!!!
uses crt;
var i,i1,n:integer;
begin
clrscr;
writeln('Cac so tu nhien tu 1 den 100 la: ');
i:=1;
while i<=100 do
begin
write(i:4);
inc(i);
end;
writeln;
write('Nhap n='); readln(n);
writeln('Cac so tu nhien tu 1 den ',n,' la: ');
i:=1;
while i<=n do
begin
write(i:4);
i:=i+1;
end;
readln;
end.
Đúng 0
Bình luận (0)
Câu 1: viết chương trình tích P của các số tự nhiên nhỏ hơn bằng 5Câu 2: viết chương trình tính tích các số tự nhiên lẻ từ 1 đến 10 Câu 3: viết chương trình tính tổng các số tự nhiên chẵn từ 1 đến nGiúp với , theo kiểu câu lệnh while do
Xem chi tiết
câu 1:
uses crt;
var p,i:integer;
begin
clrscr;
p:=1;i:=1;while i<=5 do
begin
p:=p*i;i:=i+1;
end;
write(p);
readln;
end.
bai 2:
uses crt;var p,i:integer;begin clrscr; p:=1; i:=0; while i <=10 do begin
i:=i+1; if (i mod 2<>0) then p:=p*i; end; write(p); readln;end. bai 3:
uses crt;var n,i,p:integer;begin clrscr; write('nhap n: '); readln(n); i:=1; p:=1; while i<=n do begin if i mod 2=0 then p:=p*i; i:=i+1; end; write(p); readln;end.
Đúng 1
Bình luận (3)
*Cách khác: Dùng for
Câu 1:
uses crt;
var p,i:longint;
begin
p:=1;
for i:=1 to 4 do
p:=p*i;
writeln(p);
readln;
end.
Câu 2:
uses crt;
var i,s:longint;
begin
clrscr;
s:=1;
for i:=1 to 10 do
if i mod 2=1 then s:=s*i;
writeln(s);
readln;
end.
Câu 3:
uses crt;
var n,i,s:longint;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
if i mod 2=0 then s:=s+i;
writeln(s);
readln;
end.
Đúng 0
Bình luận (1)
Tính tổng S=1+2+3+....+n+.....+ cho đến khi S>1000. Điều kiện nào sao đây cho vòng lặp While-do là đúg:
A. While S< 1000 do
B. While S> 1000 do
C. While S<= 1000 do
D. While S>= 1000 do
Xem thêm câu trả lời