Question

Bài 1: Cho tệp “BAITAP.TXT” chứa hai số nguyên dương a,b lần lượt là độ dài hai cạnh của một hình chữ nhật. Hãy viết chương trình đọc từ tệp trên độ dài hai cạnh, tính chu vi của hình chữ nhật và in kết quả tính được ra màn hình.

Answer 1

uses crt;

const fi='baitap.txt'

var f1:text;

a,b:integer;

begin

clrscr;

assign(f1,fi); reset(f1);

readln(f1,a,b);

writeln('Chu vi la: ',(a+b)*2);

writeln('Dien tich la: ',a*b);

close(f1);

readln;

end.