Question

Viết chương trình tính tích từ 1 đến 10 chiều mai mik thi cuối kì 1 r giúp mik nhá!

Answer 1

Đề thi cuối kì 1 đây  

Answer 2

uses crt;

var i,s:longint;

begin

clrscr;

s:=1;

for i:=1 to 10 do

s:=s*i;

writeln(s);

readln;

end.