Bạn Ân chạy một vòng quanh sân trường hình chữ nhật, viết chương trình in ra màn hình thông tin của bạn Ân

Question

Bạn Ân chạy một vòng quanh sân trường hình chữ nhật có chiều rộng là a (mét), chiều dài là b (mét), chạy trong khoảng thời gian là t (giây).
Viết chương trình in ra màn hình thông tin của bạn Ân (Cái này mấy bạn ưng sao cx dc nhé!) và tính vận tốc trung bình của bạn.

Answer 1

program bai1;

uses crt;

var a,b,t,Vtb,dds:real;

begin

write('Nhap chieu rong san ');readln(a);

write('Nhap chieu dai san ');readln(b);

write('Nhap thoi gian chay ');readln(t);

dds:=(a+b)*2;

writeln('Do dai san chay la ',dds);

Vtb:=dds/t;

writeln('Van toc trung binh cua ban do la: ',Vtb:10:2);

readln

end.