help me ! Hãy nhập các cạnh a,b,c,d (nhập từ bàn phím). Viết chương trình tính chu vi hình thang.

2 câu trả lời

~ Bạn tham khảo ~

Program Chu_vi_hinh_thang;

Uses Crt;

Var a,b,c,d:real;

Begin

CLRSCR;

Write('Do dai day a='); Read(a);

Write('Do dai day b='); Read(b);

Write('Do dai canh ben c='); Read(c);

Write('Do dai canh ben d='); Read(d);

Write('Chu vi hinh thang la:',a+b+c+d);

Delay(8000);

End.

uses crt;

var a,b,c,d:integer;

begin

write('nhap canh a: ');readln(a);

write('nhap canh b: ');readln(b);

write('nhap canh c: ');readln(c);

write('nhap canh d: ');readln(d);

writeln('Chu vi hinh thang la: ',a+b+c+d);

readln;

end.

Câu hỏi trong lớp Xem thêm