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
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.
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 được nhập từ bàn phím) bằng cách dùng câu lệnh For...do hoặc While...do?
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.
Viết chương trình tính:
- Tổng n số tự nhiên đầu tiên với n nhập từ bàn phím bằng câu lệnh với số lần lặp biết trước. (for… do).
- Tích các số từ 5 đến 30.
- Chu vi, diện tích hình chữ nhật, hình tròn, hình thang với các kích thước được nhập từ bàn phím.
Mình đang cần gấp
Tổng n số tự nhiên đầu tiên:
Var i,n,s:integer;
Begin
Write('n = ');
for i:=1 to n do
s:=s+i;
Write('Tong la ',s);
Readln
End.
Tích các số từ 5 đến 30
Var i,p:longint;
Begin
p:=1;
For i:=5 to 30 do
P:=p*i;
Write('Tich la ',p);
Readln
End.
Chu vi, diện tích hình chữ nhật:
var a,b,p,s:real;
begin
write('Chieu dai hcn = ');readln(a);
write('Chieu rong hcn = ');readln(b);
p:=(a+b)*2;
s:=a*b;
writeln('Chu vi hcn la ',p:10:2);
write('Dien tich hcn la ',s:10:2);
readln
end.
------------------------------------------------------------
Chu vi, diện tích hình tròn:
var r,c,s:real;
begin
write('Ban kinh = ');readln(r);
c:=2*3.14*r;
s:=3.14*r*r;
writeln('Chu vi hinh tron la ',c:10:2);
write('Dien tich hinh tron la ',s:10:2);
readln
end.
---------------------------------------------------
Chu vi, diện tích hình thang:
var dl,dn,cb1,cb2,h,p,s:real;
begin
write('Day lon = ');readln(dl);
write('Day be = ');readln(db);
write('Chieu cao = ');readln(h);
write('Canh ben thu nhat = ');readln(cb1);
write('Canh ben thu hai = ');readln(cb2);
p:=dl+db+cb1+cb2;
s:=(dl+db)*h/2;
writeln('Chu vi hinh thang la ',p:10:2);
write('Dien tich hinh thang la ',s:10:2);
readln
end.
Viết chương trình tính tổng của n số tự nhiên bất kì được nhập từ bàn phím bằng lệnh while do với n là số nguyên được nhập từ bàn phím
program TongN;
var
n, i, tong: integer;
begin
tong := 0;
writeln('Nhap so nguyen duong N: ');
readln(n);
i := 0;
while i < n do
begin
i := i + 1;
tong := tong + i;
end;
writeln('Tong cac so tu 1 den ', n, ' la ', tong);
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.
Viết chương trình tính tổng các số chẵn từ 1 đến n với n được nhập từ bàn phím (viết cho câu lệnh while...do). Mik đang cần gấppp
tham khảo
https://hoc24.vn/cau-hoi/viet-chuong-trinh-tinh-tong-cac-so-chan-tu-1-toi-n-voi-n-duoc-nhap-tu-ban-phim-bang-vong-lap-whiledo.4935914584802
https://hoc24.vn/cau-hoi/viet-chuong-trinh-tinh-tong-cac-so-chan-tu-1-toi-n-voi-n-duoc-nhap-tu-ban-phim-bang-vong-lap-whiledo.4935914584802
Var i,n,s:integer;
Begin
Write('Nhap n = ');readln(n);
i:=0;
While i <= n do
Begin
If i mod 2 = 0 then s:=s+i;
i:=i+1;
End;
Write('Tong la ',s);
Readln;
End.
Viết chương trình tính tích các số chẳn và lớn hơn 10 từ 1 đến n. Với n được nhập từ bàn phím, rồi in kết quả ra màn hình
cách 1: sử dụng lệnh for do
cách 2: sử dụng lệnh while do
Cách 1 dùng lệnh for do:
Uses crt;
var i,n,k: integer;
begin clrcsr;
readln(n);
for i:=1 to n do begin
if(i mod 2=0) and (i>=10) then k:=k*i;
end;
writeln(k);
readln;
end.
Cách 2 dùng lệnh while do
Uses crt;
var m,n,o: integer;
begin clrcsr;
readln(n);
o:=1;
m:=1;
while (m<n) do begin
m:=m+1;
if(m mod 2=0) and (m>=10) then o:=o*m;
end;
writeln(o);
readln;
end.
Viết chương trình tính tích n số tự nhiên được nhập từ bàn phím (Sử dụng câu lệnh while... do)
Var i,n,p:longint;
Begin
Write('Nhap n = ');readln(n);
i:=1;
p:=1;
While i<=n do
Begin
i:=i+1;
p:=p*i;
End;
Write('Tich la ',p);
Readln;
End.