uses crt;

var a,b,c:real;

begin

clrscr;

write('Nhap diem Toan:'); readln(a);

write('Nhap diem Van:'); readln(b);

write('Nhap diem Anh:'); readln(c);

writeln('Diem trung binh la: ',(a+b+c)/3:4:2);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

double a,b,c,tb;

int main()

{

cin>>a>>b>>c;

tb=(a+b+c)/3;

cout<<fixed<<setprecision(1)<<tb<<endl;

if (tb>=8) cout<<"Gioi";

else if ((6.5<=tb) and (tb<8)) cout<<"Kha";

else if ((5<=tb) and (tb<=6.5)) cout<<"Trung Binh";

else cout<<"Chua dat";

return 0;

}

var t,dt,a,tb: real;

begin

write('Nhap diem mon Toan: '); readln(t);

write('nhap diem mon Tin: '); readln(dt);

write('Nhap diem mon Anh: '); readln(a);

if (a<=0) or (a>=10) or (t<=0) or (t>=10) or (dt<=0) or (dt>=10) then

repeat

writeln('Khong hop le, nhap lai: ');

write('Nhap diem mon Toan: '); readln(t);

write('nhap diem mon Tin: '); readln(dt);

write('Nhap diem mon Anh: '); readln(a);

until (a>=0) and (a<=10) and (t>=0) and (t<=10) and (dt>=0) and (dt<=10);

tb:=(t+dt+a)/3;

writeln('Diem trung binh: ',tb:2:1);

if (dt>=6.5) and (t>=6.5) and (a>=6.5) and (tb>=8) then writeln('Gioi') else

if (dt>=5) and (t>=5) and (a>=5) and (tb>=6.5) then writeln('Kha') else writeln('Trung binh');

end.

uses crt;

var toan,tin,anh,tb:real;

kt:integer;

begin

clrscr;

repeat

write('Nhap diem Toan:'); readln(toan);

write('Nhap diem Tin:'); readln(tin);

write('Nhap diem Anh:'); readln(anh);

until (0<=toan) and (toan<=10) and (0<=tin) and (tin<=10) and (0<=anh) and (anh<=10);

tb:=(toan+tin+anh)/3;

writeln('Diem trung binh cua 3 mon la: ',tb:4:2);

kt:=0;

if (tb>=8) and (toan>=6.5) and (tin>=6.5) and (anh>=6.5) then kt:=1;

if (6.5<=tb) and (tb<8) and (5<=toan) and (toan<6.5) and (5<=tin) and (tin<6.5) and (5<=anh) and (anh<6.5) then kt:=2;

if kt=0 then writeln('Hoc sinh trung binh');

if kt=1 then writeln('Hoc sinh gioi');

if kt=2 then writeln('Hoc sinh kha');

readln;

end.

5 học sinh

refer

uses crt;
var i,n:longint;
a:array[1..100] of real;
s1,s,max,min:real;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('Diem trung binh mon tin hoc cua ban thu ',i,' la: ');readln(a[i]);
end;
min:=a[1];max:=a[1];
for i:=2 to n do begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i]; end;
for i:=1 to n do
s:=s+a[i];
s1:=s/n;
writeln('So diem cao nhat la: ',max);
writeln('So diem thap nhat la: ',min);
write('Diem TB cua ca lop la: ',s1:0:1);
readln

program DiemTB;

var

      diemToan, diemVan, diemTB: real;

begin

      write('Nhap diem mon Toan: ');

      readln(diemToan);

      write('Nhap diem mon Van: ');

      readln(diemVan);

      diemTB := (diemToan + diemVan) / 2;

      writeln('Diem trung binh: ', diemTB:0:2);

      if diemTB >= 5 then

            writeln('Chuc mung! Ban da dau ky thi.')

      else

            writeln('Rat tiec! Ban da truot ky thi.');

      readln;

end.

ĐẦU BÀI KHÓ QUÁ TRÊN MÁY TÍNH VIÊT SAO ĐƯỢC BIỂU ĐỒ

kho qua sao tra loi

Có 15 học sinh giỏi Văn và 20 học sinh giỏi toán.

Có 15 học sinh không giỏi môn nào.

Có 35 học sinh giỏi ít nhất 1 môn văn hoặc toán

Câu hỏi tương tự nha bạn
Mình thấy Cô Loan Quản Lý giải bài đó 

Tick mình nha Bạn ^_^

Gọi T, V, A lần lượt là hs gỏi Toán, Văn, Anh

A)Hs giỏi 3 môn:  T giao V giao A= ( T giao V) + ( V giao A) + ( T giao A) - 11 tất cả chia cho 3= (8+5+7-11)/3 = 3 (hs)

B) Hs giỏi đúng 1 môn Văn: 14-8- 2= 4( hs)( vì trong 5 hs vừa giỏi Văn, Anh đã có trong 3 hs giỏi 3 môn nên ta lấy 5-3=2)

Hs giỏi đúng 1 môn Toán : 15-8-4=3(hs) ( tương tự 7-3=4)

Hs giỏi đúng 1 môn Anh: 12-5-4= 3 (hs) ( tương tự 7-3=4)