Tin học Sửa lỗi chương trình Pascal

T_P_

Học sinh
Thành viên
3 Tháng mười một 2019
11
11
21
Đắk Lắk
Thcs Phan Chu Trinh
[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Nhập vào 2 sô N,M in ra hình chữ nhật bằng ký tự # có kích thước NxM [pascal]

Input: 2 số N, M là số hàng và số cột
Output : Gồm N hàng , mỗi hàng có M ký tự # viết liền nhau.

var m,n,i,k:word;
begin
write(n, m);
read(n, m);
for i:=1 to n do
begin
for k:=1 to m do
write('#');
end;
readln;
end.
 

Trâm Nguyễn Thị Ngọc

Giải Nhất event Thế giới Sinh học 2
Thành viên
13 Tháng mười 2018
1,523
1,339
216
18
Quảng Trị
Trường TH&THCS Hải Ba
Nhập vào 2 sô N,M in ra hình chữ nhật bằng ký tự # có kích thước NxM [pascal]

Input: 2 số N, M là số hàng và số cột
Output : Gồm N hàng , mỗi hàng có M ký tự # viết liền nhau.

var m,n,i,k:word;
begin
write(n, m);
read(n, m);
for i:=1 to n do
begin
for k:=1 to m do
write('#');
end;
readln;
end.
Bạn sửa theo Code dưới nhé
upload_2019-12-2_16-44-7.png
 
Top Bottom