Bài 1.Viết chương trình in ra tích các số chẵn nhỏ hơn hoặc bằng n( n được nhập từ bàn phím) Bài 2. In ra bảng cửu chương n ( n nhập từ bàn phím) Help!!! Cần gấp hơn bao h hết :<<

1 câu trả lời

bài 1 

ues crt ;

var tich,n,i   : integer;

begin

clrscr;

tich:=1;

writeln('n=');readln(n);

for i:=1 to n do

if i mod 2 = 0 then

tich:=tich*i ;

write('tich=',tich);

readln

end. 

bài 2

ues crt ;

var i,n :byte;

begin

clrscr;

writeln('n=');readln(n);

writeln('BANG CUU CHUONG',n);

for i:=1 to 10 do 

writeln(n,'x',i:3,'=',n*i:3);

readln

end.