Question

viết chương trình tích của 10 số tự nhiên đàu tiên

Answer 1

p

Answer 2

mjk làm j đúng ko

 

Answer 3

program tong;

uses crt;

var i,N :integer;

T:longint;

begin

N:=10; T:=1 ;

for i:=1 to 10 do T:= T+i;

write ('tich cua ',N,' so tu nhien dau tien la',T);

readln

end.

Answer 4

bài này cơ bản mà

program dsfsd;

uses crt;

var i,n,s;

begin

clrscr

write('n=');

readln(n); (chỗ này nhập n= 10 nha )

for i:=1 to n do s:=s*i;

readln;

end.