Program HOC24;
var i,j: byte;
begin
for i:=1 to 5 do
begin
for j:=1 to 9 do write('x');
writeln;
end;
readln
end.
Đúng 0
Bình luận (0)
Lập trình đơn giản
Các câu hỏi tương tự
sử dụng vòng lặp for do viết chương trình in ra màn hình, hình vuông sau
****
****
****
****
Em hãy viết chương trình nhập vào mảng số nguyên gồm n phần tử, sau đó in ra màn hình các giá trị phần tử là số chẵn trong mảng.
1. Viết chương trình nhập vào một số nguyên dương n và in ra màn hình dãy số tự nhiên từ 1 tới n. 2. Viết chương trình nhập vào một số nguyên n và in ra màn hình các số nguyên chẵn trong khoảng từ 1 tới n.
Cho chương trình sau
Đối với đoạn chương trình sau đây hãy dùng lệnh writeln(j;k) in ra màn hình giá trị của j và k là bao nhiêu
J:=J+2
K:=k+j
Writeln(j;k)
Viết chương trình in ra màn hình các phép tính sau:
a/ 16 div 3; b/ 15 mod 3; c/1.2+1.2.3+1.2.3.4.
Hãy viết 1 chương trình Pascal để tìm kết quả của biểu thức sau: (x-2)\(^2\)(x+2)+(x+2),x là số được nhập từ bàn phím.Sau đó in ra màn hình kết quả của biểu thức.
Viết Chương Trình Nhập Vào Từ Bàn Phím 2 Số Nguyên Khác Nhau , Sau Đó In Ra Màn Hình Với Thứ Tự Không Giảm
Viết chương trình nhập chiều dài, chiều rộng hình chữ nhật. Tính chu vi, diện tích hình chữ nhậtvà in ra màn hình.
Viết chương trình nhập biến mảng M gồm 100 phần tử thuộc kiểu số nguyên +nhập các phần tử và in ra màn hình + tìm và in ra màn hình giá trị lớn nhất trong dãy số vừa nhập +tìm và in ra màn hình giá trị nhỏ nhất trong dãy số vừa nhập