viết chương trình 15x16x17x... xN giúp mình vs1

Question

mocmien · Answer

Uses crt;
Var n,i:integer;

s:longword;

Begin

Clrscr;

Write(‘Nhap n:’); readln(n);

s:=1;

For i:=15 to n do

s:=s*i;

Write(s);

Readln;

End.

cobelolen · Answer

uses crt;
var n,i:integer;

s:longword;

BEGIN

clrscr;

write(‘Nhap n:’); readln(n);

s:=1;

for i:=15 to n do

s:=s*i;

write(s);

readln

END.

Xin ctlhn.

Trả lời

viết chương trình 15x16x17x… xN giúp mình vs1