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