Viet phuong trinh tinh
A=1*2*3*…….*10
Dieu Kien: i:<=10
sd lenh
for......do
while.......do
giup MK vs dang can gap
thx trc a
do laptop cua Mk mat unikey nen k ghi dau dc mn thong cam a.
Viet phuong trinh tinh
A=1*2*3*…….*10
Dieu Kien: i:<=10
sd lenh
for......do
while.......do
giup MK vs dang can gap
thx trc a
do laptop cua Mk mat unikey nen k ghi dau dc mn thong cam a.
for…to…do:
uses crt;
var n,i:integer; A:longint;
begin
clrscr;
A:=1;
for i:=1 to 10 do A:=A*i;
write(‘A=’,A);
readln
end.
while…do
uses crt;
var n,i:integer; A:longint;
begin
clrscr;
A:=1; i:=1;
while i<=10 do
begin
A:=A*i;
i:=i+1;
end;
write(‘A=’,A);
readln
end.