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

0 bình luận về “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”

1. 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.

   Bình luận