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
Mik muốn hỏi Cách viết chương trình tính tích T=1x2x3x4x….xn bằng hai cách while do với for do làm ơn giúo mìn hả với ạ
while..do
Program HOC24;
var i,n: integer;
t: longint;
begin
write('Nhap N: '); readln(n);
t:=1; i:=1;
while i<=n do
begin
t:=t*i;
i:=i+1;
end;
write('T = ',t);
readln
end.
for..do
Program HOC24;
var i,n: integer;
t: longint;
begin
write('Nhap N: '); readln(n);
t:=1;
for i:=1 to n do t:=t*i;
write('T = ',t);
readln
end.
viết chương trình tính tổng số tự nhiên băng 2 cách, sử dụng vòng lặp for-to-do và sử dụng vòng lặp while-do
GIÚP MÌNH VỚI
Tính tổng N số tự nhiên đầu tiên với N nhập từ bàn phím chứ bạn nhỉ?
hãy viết chương trình sử dụng lệnh lặp while-do, và for...to...do để tính tổng các số tự nhiên từ 1 đến 10.
* Sử dụng For ... do
Var i,s:integer;
Begin
For i:=1 to 10 do
s:=s+i;
Write('Tong la ',s);
Readln;
End.
* Sử dụng While ... do
Var i,s:integer;
Begin
i:=1;
While i<=10 do
Begin
s:=s+i;
i:=i+1;
End;
Write('tong la ',s);
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 (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.
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.
Cho bàu toán sau: viết chương trình tính tổng T=1+2+...+120 hãy sử dụng vòng lặp while do viết chương trình tính tổng bằng T (Giúp t vs mn ơi t cần gấp
Uses crt;
var i,t: integer;
begin clrscr;
i:=0;
while(i<=120) do begin
i:=i+1;
t:=t+i;
end;
write(t);
readln;
end.
Giúp mình với ạ: Sử dụng câu lệnh for...to...do viết chương trình tính tổng sau
Lưu ý: Viết cả chương trình
var i,n:integer;
s:real;
begin
write('Nhap n = ');readln(n);
for i:=1 to n do
s:=s+1/(3*i+2);
write('Tong la ',s:10:2);
readln;
end.
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.
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.
Viết chương trình ( sử dụng while...do hoặc for...do)
Bài 1: tính s=5+6+10+19+...+n
Bài 2: tính s=2+1/4+1/9+1/16+...+1/n
Giúp mình với ạ
