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