Tin học Viết chương trình

[duongthuyhoaithuong@gmail.com]

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

Mọi ng giúp mik khai báo bài này vs.
Mik c.on

 

[Trâm Nguyễn Thị Ngọc]

Mọi ng giúp mik khai báo bài này vs.
Mik c.on
View attachment 104182

Dữ liệu vào là mấy số vậy bạn. Với lại phải là tệp .inp hoặc .txt chứ bạn

 

[duongthuyhoaithuong@gmail.com]

Dữ liệu vào là mấy số vậy bạn. Với lại phải là tệp .inp hoặc .txt chứ bạn

Mik cũng k hiểu đề cho sao thì mik ghi z ak

 

[Trâm Nguyễn Thị Ngọc]

Mọi ng giúp mik khai báo bài này vs.
Mik c.on
View attachment 104182

Var
 Fi,fo:text;
 cd,cr,s,cv:integer;
Begin
  Assign(fi,'so.inp');reset(fi);
  Assign(fo,'kq.out');rewrite(fo);
  Read(fi,cd,cr);
  Cv:=(cd+cr)*2;
  S:=cd*cr;
  Write(fo,cv,' ',s);
  Close(fi);close(fo);
End.

 

[siroclc]

Mình thấy đề của cậu chưa rõ ràng. Tệp vào phải đọc chiều dài và chiều rộng thì mới in ra tệp ra chứ.