Câu 4: Cho S = 12 + 22 + 32 + … + n2, với n là một số tự nhiên nhập từ bàn phím. Hãy viết chương trình sử dụng lệnh lặp While…do để tính tổng trên?
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.
Câu 7: Nêu cú pháp câu lệnh lặp và cú pháp câu lệnh lặp với số lần chưa biết trước.
Câu 8: Viết chương trình tính tổng của N số tự nhiên đầu tiên, với N là số tự nhiên được nhập từ bàn phím.
Câu 9: Viết chương trình sử dụng lệnh lặp While..do để tính trung bình của n số thực x1, x2, x3,… xn. Các số n và x1, x2, x3,… xn được nhập vào từ bàn phím.
giupa nha các hảo hán !
Viết chương trình sử dụng lệnh lặp while....do... để đếm các số tự nhiên chia hết cho 5 từ 1 -> n được nhập từ bàn phím
program DemSoChiaHetCho5;
var
n, i, count: integer;
begin
write('Nhap n: ');
readln(n);
i := 1;
count := 0;
while i <= n do
begin
if i mod 5 = 0 then
count := count + 1;
i := i + 1;
end;
writeln('Co ', count, ' so tu nhien chia het cho 5 trong khoang tu 1 den ', n);
end.
cho s=1^2+2^2+...+n^2. với n là 1 số tự nhiên được nhập từ bàn phím. Hãy viết điều kiện lặp, công việc lặp sau do cho lệnh while để tính tổng S trên
Uses Crt;
Var i,S,n:integer;
Begin
Clrscr;
Readln(i,S,n);
For i:=1 to n do S:=S+i*i;
Write(S);
Readln
End.
uses crt;
var s,i,n:longint;
begin
clrscr;
readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+i*i;
i:=i+1;
end;
writeln(s);
readln;
end.
: Viết chương trình Pascal sử dụng lệnh lặp While..Do tính tổng các số chẵn của số tự nhiên N (100<n<32000) với N được nhập từ bàn phím. Vẽ sơ đồ biểu diễn hoạt động của chương trình trên.
Ví dụ:
Input: Output:
123 2
6616 18
10246 12
uses crt;
var n,i,t,x:integer;
begin
clrscr;
readln(n);
t:=0;
while n>0 do
begin
x:=n mod 10;
if x mod 2=0 then t:=t+x;
n:=n div 10;
end;
writeln(t);
readln;
end.
Sử dụng câu lệnh While .. do để viết chương trình tính tổng: S = 1+2+3+…+n . Trong đó n là số nguyên nhập từ bàn phím.
var i,n,s:integer;
begin
write('nhap n = ');readln(n);
i:=1;
while i<=n do
begin
s:=s+i;
i:=i+1;
end;
write('Tong la ',s);
readln;
end.
VIết CHươNG TRình PaSCAL sỬ dỤNG vÒNG lẶP lẶP while...do ĐỂ tÍNH tỔNG s=1+2+3+...+n Với n lÀ sỐ nguyÊn được nhẬP tỪ bÀN phÍM
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+i;
inc(i);
end;
writeln(s);
readln;
end.
2: Viết chương trình sử dụng lệnh lặp để tính trung bình cộng của N số thực. Với số N và các số tính trung bình cộng được nhập vào từ bàn phím. Câu 3: Viết chương trình nhận biết một số tự nhiên N được nhập từ bàn phím có phải là số nguyên tố hay không.
Câu 3:
uses crt;
var n,i,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
if n>1 then
begin
kt:=0;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then kt:=1;
if kt=0 then writeln(n,' la so nguyen to')
else writeln(n,' la hop so');
end
else writeln(n,' khong la so nguyen to cung khong la hop so');
readln;
end.
viết chương trình tính tích của n số tự nhiên đầu tiên,với N số tự nhiên được nhập từ bàn phím(sử dụng câu lệnh While..Do
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=1;
i:=1;
while i<=n do
begin
s:=s*i;
i:=i+1;
end;
writeln(s:0:0);
readln;
end.