Viết chương trình 1 dãy 2 số nguyên là 2 cạnh của hình chữ nhật từ tệp có tên là Dulieu.txt. Tính và in ra màn hình chu vi và diện tích của các hình chữ nhật theo kích thước đã cho => giúp mình với ạ
1 câu trả lời
Const Fi='Dulieu.TXT';
Var f: text;
a,b: extended;
Begin
Assign(f,Fi); Reset(f);
Read(f,a,b);
Writeln('Dien tich: ',a*b:0:2);
Write('Chu vi: ',(a+b)*2:0:2);
Close(f);
Readln
End.
Câu hỏi trong lớp
Xem thêm
