Uses crt;

Var dai,rong:integer;

     Procedure Nhap(Var dai:integer;rong:integer);

     Begin

     Write('Chieu dai: ');readln(dai);

     Write('Chieu rong: ');readln(rong);

     End;

     Procedure Ve(var dai:integer;rong:integer);

     var i,j:integer;

     Begin

     for i:= 1 to dai do write('*');writeln;

     For i:= 1 to rong-2 do 

        Begin

        Write('*');

        for j:=1 to dai-2 do write(' ');

        writeln('*');

        end;

     for i:= 1 to dai do write('*');

     End;

Begin

clrscr;

Nhap(dai,rong);

Ve(dai,rong);

readln;

End.          

uses crt;

var a,b:integer;

{-----------------chuong-trinh-con--------------------}

procedure ve(x,y:integer);

var i,j:integer;

begin

for i:=1 to x do 

  begin

for j:=1 to y do 

  write('*');

writeln;

end;

end;

{----------------------chuong-trinh-chinh----------------------}

begin

clrscr;

write('Dai='); readln(a);

write('Rong='); readln(b);

ve(a,b);

readln;

end.

vd

vào cái ảnh hình vuông và hình tam giác màu xanh ý

uses crt;
var x,y,z,n : integer;
begin clrscr;
write('Nhap n:'); readln(n);
for x:=1 to 9 do
for y:=0 to 9 do
for z:=0 to 9 do
if n*(x+y+z) = x*100+y*10+z then
write('So thoa man de la :', x,y,z, ' ');
readln
end.

Em ghép như hình dưới

A – 2, B - 3, C - 4, D - , E - 6, F - 1, G - 5

- La bàn có các bộ phận: kim la bàn, chữ cái chỉ các phương.

- Ý nghĩa của các chữ cái có trên mặt la bàn:

+ N: Phương bắc

+ E: Phương đông

+ S: Phương nam

+ W: Phương tây

- La bàn dùng để xác định bốn phương chính trong không gian.

- Học sinh xác định bốn phương chính trong không gian bằng la bàn tại lớp học.

Điền mỗi chữ đúng được 0.25 điểm

- F và J (0.5 điểm)

- phím cách (0.25 điểm)

- menu (0.25 điểm)

:) , *v* , ^v^ 

mk ko copy đâu nha

( •̀ ω •́ )✧

^^

:)

:>

=)

:]

@Cỏ

#Forever

A

a

A