Tính tích bằng câu lập lệnh
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 bằng câu lệnh lặp .
giúp mik vs ạ!
Var a:array[1..1000] of integer;
s:longint;
i,n:integer;
Begin
s:=1;
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i);readln(a[i]);
s:=s*a[i];
End;
Write('Tich la ',s);
Readln
End.
Đúng 2
Bình luận (0)
program TinhTich;
var n, i, tich: integer;
begin
write('Nhap vao n: ');
readln(n);
tich := 1;
for i := 1 to n do
tich := tich * i;
writeln('tich cua ', n, ' so tu nhien dau tien la: ', tich);
readln;
end.
Đúng 2
Bình luận (0)
chọn câu trả lời đúng,trong câu lệnh lập với số lần chưa biết trước luôn có một câu lệnh để
A.thực hiện tính toán B.ghép các câu lệnh
C.tác động đến điều kiện D.không cần
lập chương trình pascal bằng câu lệnh while .... do và for ...do
A=5+10+15.....+200
* fo...do
Program HOC24;
var A: integer;
i: byte;
Begin
A:=0;
for i:=1 to 200 do
if i mod 5=0 then A:=A+i;
write('A= ',A);
readln
end.
Đúng 0
Bình luận (0)
* while...do
Program HOC24;
var A: integer;
i: byte;
Begin
A:=0; i:=5;
while i<=200 do
begin
A:=A+i;
i:=i+5;
end;
write('A= ',A);
readln
end.
Đúng 0
Bình luận (0)
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)
viết cấu trúc của lệnh lập biết trước giải thích các thành phần có trong câu lệnh và nêu hoạt động câu lệnh
thuật toán chương trình tích tổng, tích bằng câu lệnh lặp và viết chương trình
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?
Viết chương trình nhập vào một số n in ra màn hình tổng số n vừa nhập bằng câu lệnh lập While do
var n, sum : integer;
begin
write('Nhap n: ');
readln(n);
sum := 0;
while n > 0 do
begin
sum := sum + n;
n := n - 1;
end;
writeln('Tong la: ', sum);
end.
Đúng 2
Bình luận (0)
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)