Những câu hỏi liên quan
Tiên Tiên
Xem chi tiết
Nguyen Hung
2 tháng 5 2021 lúc 20:06

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.          

Bùi Anh Tuấn
2 tháng 5 2021 lúc 20:16

Nguyễn Lê Phước Thịnh
2 tháng 5 2021 lúc 22:25

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.

tran thi nhan
Xem chi tiết
vudinhphuc
16 tháng 9 2015 lúc 17:19

vd

đhj
    
    
    
    
    

 

Tạ Quang Duy
16 tháng 9 2015 lúc 17:20

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

Mlee
16 tháng 9 2015 lúc 17:24
ne
     
     
     
Minh Ngọc Nguyễn Đỗ
Xem chi tiết
 

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.

Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
12 tháng 2 2019 lúc 3:54

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

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

Minh Lệ
Xem chi tiết
Hà Quang Minh
29 tháng 11 2023 lúc 1:59

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

Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
23 tháng 4 2017 lúc 9:56

Đ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)

Hồ Đại Bảo
Xem chi tiết
Nguyễn Trần Bảo Nhi
Xem chi tiết
Trần Mai Phương
16 tháng 10 2021 lúc 16:59

:) , *v* , ^v^ 

mk ko copy đâu nha

Khách vãng lai đã xóa
ミ꧁༺༒༻꧂彡
16 tháng 10 2021 lúc 17:00

( •̀ ω •́ )✧

Khách vãng lai đã xóa
Cua hoàng đế
16 tháng 10 2021 lúc 17:04

^^

:)

:>

=)

:]

@Cỏ

#Forever

Khách vãng lai đã xóa
bảo trân
Xem chi tiết
phung tuan anh phung tua...
27 tháng 12 2021 lúc 9:46

A

Meso Tieuhoc
27 tháng 12 2021 lúc 9:47

 

 

 

 

 

 

 

 

 

 

a

Thảo Nguyễn 7B5
27 tháng 12 2021 lúc 9:48

A