Câu1: Viết chương trình tích P của các số tự nhiên nhỏ hơn bằng 5
Câu 2:viết chương trình tính tích các số tự nhiên chẵn từ 1 đến 20
Câu 4: viết chương trình tính tổng các số tự nhiên chẵn từ 1 đến n
Câu5: viết chương trình tính tích các số tự nhiên lẻ từ 1 đến 10
Cần gấp lắm giúp tôi ha, làm kiểucâu lệnh while do, số lần chưa biết trước ha
Ko chép mang nó không có trên mạng
bài 1:
uses crt;
var
i,S: byte;
begin
S:=1;
while i<=5 do
begin
i:=i+1;
S:=S*i;
end;
writeln(‘kep qua la ‘,S);
readln
end.
bài 2
uses crt;
var
i,S: integer;
begin
S:=1;
while i<= 20 do
begin
i:=i+1;
If (i mod 2 = 0) then S:=S*i;
end;
write(‘ket qua la ‘,S);
readln
End.
bài 4
uses crt;
var
i,N,S: longint;
begin
clrscr;
write(;nhap so N:=’); readln(N);
while i<=N do
begin
i:=i+1;
if (i mod 2 = 0) then S:=S+i;
end;
writeln(‘kep qua la ‘,S);
readln
end.
bài 5
uses crt;
var
i,S: integer’
begin
S:=;
while i<=10 do
begin
i;=I=1;
If (i mod 2 <>0) then S:=S*i;
end.
writeln(‘kep qua la ‘,S);
readln
End,
1.
program phuongt;
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 = ‘, P);
readln
end.
2.
program phuongt;
uses crt;
var T, i: integer;
begin
clrscr;
T:=1; i:=1;
while i<=20 do
begin
if i mod 2 = 0 then T:=T*i;
i:=i+1;
end;
write(‘T = ‘, T);
readln
end.
4.
program phuongt;
uses crt;
var i, n, S: integer;
begin
clrscr;
S:=0; i:=1;
write(‘Nhap n = ‘); readln(n);
while i<=n do
begin
if i mod 2 = 0 then S:=S+i;
i:=i+1;
end;
write(‘S = ‘, S);
readln
end.
5.
program phuongt;
uses crt;
var i, A: integer;
begin
clrscr;
A:=1; i:=1;
while i<=10 do
begin
if i mod 2 = 1 then A:=A*i;
i:=i+1;
end;
write(‘A = ‘, A);
readln
end.