Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
lam mi

Viết chương trình nhập n số nguyên từ bàn phím Tính: S= 1+2+...+n P= 1*2*...*n ( sử dụng câu lệnh for...do)

Nguyễn Lê Phước Thịnh
15 tháng 5 2022 lúc 13:45

uses crt;

var s,p,i,n:integer;

begin

clrscr;

readln(n);

s:=0;

p:=1;

for i:=1 to n do 

begin

s:=s+i;

p:=p*i;

end;

writeln(s);

writeln(p);

readln;

end.


Các câu hỏi tương tự
Thảo My Lê Phương
Xem chi tiết
Trường Nguyễn
Xem chi tiết
Nguyễn Trương anh khoa
Xem chi tiết
Khánh Hoàng
Xem chi tiết
Võ Tấn Trường Phạm
Xem chi tiết
Khánh Hoàng
Xem chi tiết
Phương Linh Pham Thị
Xem chi tiết
Nguyễn Thuận
Xem chi tiết
mẫn cuti
Xem chi tiết