14. Viết chương trình tính tổng: S= 1+2+3+…+n với n là số tự nhiên được nhập từ bàn phím
bằng cách sử dụng câu lệnh lặp While … do
15. Viết chương trình tính tích: P= 1.2.3.…x với x là số tự nhiên được nhập từ bàn phím bằng
cách sử dụng câu lệnh lặp While … do
giải giúp mik với đag cần gấp
Bài 14:
program bai_14;
uses crt;
var n,i:integer;
S:longint;
begin
clrscr;
write(‘Nhap so nguyen n: ‘); readln(n);
S:=0; i:=1;
while i<=n do
begin
S:=S+i;
i:=i+1;
end;
write(‘S= ‘,s);
readln;
end.
Bài 15:
program bai_15;
uses crt;
var x,i:integer;
P:longint;
begin
clrscr;
write(‘Nhap so nguyen x: ‘); readln(x);
P:=1; i:=1;
while i<=x do
begin
P:=P*i;
i:=i+1;
end;
write(‘P= ‘,p);
readln;
end.
14
uses crt;
var n,i:word;
s:longint;
BEGIN
clrscr;
write(‘Nhap n:’); readln(n);
s:=1;
for i:=2 to n do
s:=s+i;
write(‘S=’,s);
readln
END.
15
uses crt;
var n,i:word;
p:int64;
BEGIN
clrscr;
write(‘Nhap n:’); readln(n);
p:=1;
for i:=2 to n do
p:=p*i;
write(‘P=’,p);
readln
END.
Chúc bạn học tốt!