viết chương trình nhập vào 2 cạnh của hình thang in ra độ dài đường trung bình hình thang đó

0 bình luận về “viết chương trình nhập vào 2 cạnh của hình thang in ra độ dài đường trung bình hình thang đó”

1. var a,b,c:real;

   begin

   write(‘nhap canh day thu nhat ‘);

   readln(a);

   write(‘nhap canh day thu hai’);

   readln(b);

   c:=(a+b)/2;;

   writeln(c);

   readln;

   end.

   Trả lời

2. uses crt;
   var dtb:real;
       a,b:longint;
   begin
   clrscr;
   write(‘Nhap canh thu nhat: ‘);readln(a);
   write(‘Nhap canh thu hai: ‘);readln(b);
   dtb:=(a+b)/2;
   writeln(‘Duong trung binh cua hinh thang: ‘,dtb:0:2);
   readln;
   end.

   Trả lời