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 ạ
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 được nhập từ bàn phím) bằng cách dùng câu lệnh For...do hoặc While...do?
Đọc tiếp
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?
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.
Đúng 0
Bình luận (0)
8 tháng 3 2021 lúc 23:24
Viết chương trình đưa ra màn hình các số nhỏ hơn 30 ( số tự nhiên ) bằng hai cách :- Dùng lệnh while ...do-dùng lệnh for ...do
Xem chi tiết
Cách 1: while..do
Program HOC24;
var i: integer;
begin
i:=1;
while i<30 do
begin
write(i,' ');
i:=i+1;
end;
readln
end.
Cách 2: for..do
Program HOC24;
var i: integer;
begin
for i:=1 to 29 do write(i,' ');
readln
end.
Đúng 1
Bình luận (0)
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ỉ?
Đúng 1
Bình luận (1)
Mn ơi viết cho mik một chương trình pascal có đủ các câu lệnh sau : Cl điều kiện(If... then... else) , Cl lặp(for...to.. do) , Cl lặp vs số lần chưa biết trước ( While... do) vs ạ Mik cảm ơn trc ạ
program day_du_cau_lenh;
uses crt;
var i,n:integer;
a:array[1..100]of intrger;
begin
clrscr;
write('nhap so n:');readln(n);
i:=1;
while i<=n do
begin
write('nhap a[',i,']:');readln(a[i]);
i:=i+1;
end;
for i:=1 to n do
if a[i]>=0 then write(a[i]) else write('');
readln;
end.
Đúng 0
Bình luận (0)
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.
Đúng 4
Bình luận (0)
Viết chương trình tính tích: S=7^3*8^3*9^3*....*n^3 Theo hai câu lệnh *While do *For do
Câu lệnh for ... do
program Tinh_Tich;
var
n, i: integer;
S: double;
begin
write('Nhap vao so nguyen N: ');
readln(n);
S := 1;
for i := 7 to n do
begin
S := S * i * i * i;
end;
writeln('Tich cac so 7^3*8^3*9^3*...*N^3 la: ', S);
readln;
end.
Câu lệnh while .... do
program Tinh_Tich;
var
n, i: integer;
S: double;
begin
write('Nhap vao so nguyen N: ');
readln(n);
S := 1;
i := 7;
while (i <= n) do
begin
S := S * i * i * i;
i := i + 1;
end;
writeln('Tich cac so 7^3*8^3*9^3*...*N^3 la: ', S);
readln;
end.
Đúng 2
Bình luận (0)
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 ạ