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.