viết trương trình pascal có sử dụng biến nhớ tính chu vi của hình bình hành. biết chu vi của hình bình hành = đáyxchiều cao

2 câu trả lời

- Đáy x Chiều cao = Diện tích hình bình hành

uses crt;

var a, b, s : real;

begin

clrscr;

write('Nhap canh day = '); readln(a);

write('Nhap chieu cao = '); readln(b);

s := a * b;

write('Dien tich hinh binh hanh = ', s : 2 : 1);

readln

end.

Var b, h, p: longint;

Begin

Writeln('Nhap day va chieu cao');

Readln(b, h);

p = b * h;

Writeln('Chu vi hinh binh hanh la: ', p);

End.