Viết CT tính hiệu và trung bình cộng của a, b , c (lm tròn 1 chữ số thập phân) sẵn tiện gợi ý cho tớ viết pt tính tích luôn với ạ

0 bình luận về “Viết CT tính hiệu và trung bình cộng của a, b , c (lm tròn 1 chữ số thập phân) sẵn tiện gợi ý cho tớ viết pt tính tích luôn với ạ”

1. Program BTT;
   Uses crt;
   Var a,b,c,h,tbc: extended;
   Begin
           Clrscr;
           Write(‘Nhap a, b, c: ‘); Readln(a,b,c);
           h:=a-b-c;
           tbc:=(a+b+c)/3;
           Writeln(‘Hieu la: ‘,h:0:2);
           Write(‘Trung binh cong la: ‘,tbc:0:2);
           Readln
   End.

   Trả lời

2. program kaito;

   uses crt;

   var a, b, c, tb, h: real;

   begin

      clrscr;

      write(‘Nhap a: ‘); readln(a);

      write(‘Nhap b: ‘); readln(b);

      write(‘Nhap c: ‘); readln(c);

         h:=a-b-c;

         tb:=s/3;

      writeln(‘Hieu cua 3 so a, b, c la: ‘,h);

      writeln(‘Trung binh cong cua 3 so a, b, c la: ‘,tb:0:1); 

      readln

   end.

   CHÚC BẠN HỌC TỐT!!!

   Trả lời