Cái này mình nghĩ bạn nên truyền lại cho các bạn vì mình thấy nó rắt có ích có thể sẽ có nhiều bạn cần tới nó cảm ơn lời khuyên của bạn .

Thanks!^^

Cái này mình nghĩ bạn nên đăng cái này nó có ích có thể sẽ có rất nhiều bạn cần bạn đăng nè , mình cảm ơn lời bạn đăng

biết rồi còn hỏi

4x1=4

4x2=8

4x3=12

4x4=16

4x5=20

4x6=24

4x7=28

4x8=38

4x9=36

4x10=40

BCC:5

5x1=5

5x2=10

5x3=15

5x4=20

5x5=25

5x6=30

5x7=35

5x8=40

5x9=45

5x10=50

k mik nha

4 x 1 = 4                                  5 x 1 = 5

4 x 2 = 8                                  5 x 2 = 10

4 x 3 = 12                                 5 x 3 = 15 

4 x 4 = 16                                 5 x 4 = 20

4 x 5 = 20                                 5 x 5 = 25

4 x 6 = 24                                 5 x 6 = 30 

4 x 7 = 28                                 5 x 7 = 35 

4 x 8 = 32                                 5 x 8 = 40 

4 x 9 = 36                                 5 x 9 = 45 

4 x 10 = 40                               5 x 10 = 50 

mik đầu tiên nha

Uses crt;
Var a,b :byte;
Begin
Clrscr;
For a:=2 to 9 do
    Begin
          For b:=1 to 10 do writeln ( a,’x’,b,’=’,a*b);
            Delay(1000); { tam dung sau moi cuu chuong duoc in ra }
            Writeln; { ngan cach cac bang cuu chuong }
      End;
   Readln
End.

_{* bạn thử chạy chương trình ra nhé , chúc học tốt!!}

Bài 2:

Program hotrotinhoc_hoc24;

var i,n,d,d1: integer;

begin

write('Nhap n='); readln(n);

i:=0;

while i<n do

begin

i:=i+1;

if i mod 2=1 then d:=d+1;

if i mod 2=0 then d1:=d1+1;

end;

writeln('Co ',d1,' so chan tu 1 den ',n);

write('Co ',d,' so le tu 1 den ',n);

readln

end.

Bài 1:

Program hotrotinhoc_hoc24;

var i,n: integer;

begin

write('Nhap n='); readln(n);

i:=0;

while i<10 do

begin

i:=i+1;

writeln(n,'*',i,'=',n*i);

end;

readln

end.

ê mi phải lớp 7a2 khống

ừ ừ có j ák

t có nhìu nik lắm !!!!!!!

Program HOC24;

var n,i: integer;

begin

write('Nhap so nguyen: '); readln(n);

for i:=1 to 10 do

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

readln

end.

uses crt;

var n,i:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to 10 do

writeln(n,'*',i,'=',n*i);

readln;

end.