víeets chương trình nhập vào điểm toán lý hóa tính tổng điểm .Nếu lớn hơn 8 thì thông báo ra màn hình ls giỏi Giúp mình ik mà

0 bình luận về “víeets chương trình nhập vào điểm toán lý hóa tính tổng điểm .Nếu lớn hơn 8 thì thông báo ra màn hình ls giỏi Giúp mình ik mà”

1. program bai1;

   uses crt;

   var DTB:  reald;

   v,t: integer;

   begin

   clrscr;

   repeat

   write(‘nhap diem van =’);readln(v);

   write(‘nhap diem doan =’);readln(t);
   until (v <= 10) and ( v >=0) and (t <= 10) and (t >=0);

   DTB:(v+t) / 2;

   writeln(‘diem trung binh hai mon =’,DTB:4:2);

   it (DTB >=8.0) and (v >=6.5) and (v >=6.5) then

   writeln(‘dat loai gioi’);

   if (DTB >=6.5) and (v >=5) and (t >=5) then

   writeln(‘dat loai kha’) else

   writeln(‘khong dat duoc loai gioi va kha’);

   readln;

   end.

   xin ctl hay nhat

   chuc bn hoc tot

   Bình luận

2. uses crt;
   var t,l,h:longint;
   begin
   clrscr;
      write(‘Diem toan, ly, hoa: ‘);readln(t,l,h);
      if ((t+l+h)/3>=8)then writeln(‘Hoc sinh gioi’);
   readln
   end.

   Bình luận