Viết chương trình tích của 10 số tự nhiên đầu tiên.{dùng while...do..}
P=1.2.3.4.5.6.7.8.9.10
Những câu hỏi liên quan
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.
Đúng 0
Bình luận (1)
Giả sử s là tích của n số tự nhiên đầu tiên dùng câu lệnh lặp while....do viêta chương trình xác định n bằng bao nhiêu để s nhỏ nhất lớn hơn 10000
b) Em hãy viết chương trình Tính tổng của 20 số tự nhiên đầu tiên bằng câu lệnh for … do và while… do ?
Sử dụng vòng lặp while...do:
program TinhTong20SoTNN;
var
i, sum: integer;
begin
i := 1;
sum := 0;
while i <= 20 do
begin
sum := sum + i;
i := i + 1;
end;
writeln('Tong cua 20 so tu nhien dau tien la: ', sum);
end.
Đúng 1
Bình luận (0)
Sử dụng vòng lặp for...do:
program TinhTong20SoTNN;
var
i, sum: integer;
begin
sum := 0;
for i := 1 to 20 do
sum := sum + i;
writeln('Tong cua 20 so tu nhien dau tien la: ', sum);
end.
Đúng 0
Bình luận (0)
sử dụng vòng lập while...do, viết chương trình tính tổng của 50 số tự nhiên đầu tiên
help
Program Tinh_tong ;
Uses Crt;
Var i ,S: integer ;
Begin
S: = 0 i;=0 ;
While < 51 do begin
i : = i + 1 ;
S: = S + i ;
end ;
Write ('Tong la',S);
End.
dùng ngôn ngữ lập trình Pascal,viết chường trình tính tổng 50 số tự nhiên đầu tiên.( dùng While..do,hoặc For..do)
while..do
Program HOC24;
var i: byte;
t: integer;
begin
i:=1;
while i<=n do
begin
t:=t+i;
i:=i+1;
end;
write('Ket qua la: ',t);
readln
end.
Đúng 1
Bình luận (0)
For..do
Program HOC24;
var i: byte;
t: integer;
begin
t:=0;
for i:=1 to 50 do t:=t+i;
write('Ket qua la: ',t);
readln
end.
Đúng 0
Bình luận (0)
program TinhTong50SoTuNhienDauTien;
var i, t: integer;
begin
t := 0;
for i := 1 to 50 do
begin
t:= t+ i;
end;
writeln('Tong cua 50 so tu nhien dau tien la: ', t);
readln;
end.
Đúng 0
Bình luận (0)
Xem thêm câu trả lời
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)
sử dụng vòng lập while...do để viết chương trình tings tổng các số chẳn trong 50 sồ tự nhiên đầu tiên
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
i:=0;
while i<=50 do
begin
i:=i+2;
t:=t+i;
end;
writeln(t);
readln;
end.
Đúng 0
Bình luận (0)
viết chương trình sử dụng lệnh while....do để tính tổng của n số tự nhiên đầu tiên nhập vào từ bàn phím Giải hộ mình cảm ơn bạn..
Viết chương trình nhập 1 số nguyên dương n. Sau đó xuất ra màn hình tổng của n số tự nhiên đầu tiên (yêu cầu : sử dụng câu lệnh while....do)
program Tinh_Tong;
var n, s, i: integer;
begin
write('Nhap vao so nguyen duong n: ');
readln(n);
s := 0;
i := 1;
while i <= n do
begin
s := s + i;
i := i + 1;
end;
writeln('Tong cua ', n, ' so tu nhien dau tien la: ', s);
end.
Đúng 1
Bình luận (0)