LM

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)

NT
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.

Bình luận (0)

Các câu hỏi tương tự
TP
Xem chi tiết
TN
Xem chi tiết
NK
Xem chi tiết
KH
Xem chi tiết
VP
Xem chi tiết
KH
Xem chi tiết
PT
Xem chi tiết
NT
Xem chi tiết
MC
Xem chi tiết