K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

29 tháng 12 2017

không có môn nào là sao ? phải cho điểm từng môn cụ thể mới viết chương trình được!

19 tháng 12 2021

 

 

#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;

}

1 tháng 1 2021

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.

#include <bits/stdc++.h>

using namespace std;

double a[10],b,c,tb;

int n,i,dem;

int main()

{

cout<<"Nhap so cot thuong xuyen:"; cin>>n;

tb=0;

for (i=1; i<=n; i++)

{

cin>>a[i];

tb=tb+a[i];

}

cin>>b>>c;

tb=tb+b+c;

cout<<fixed<<setprecision(2)<<tb/(n+2)<<endl;

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

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

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

else cout<<"Yeu";

return 0;

}

#include <bits/stdc++.h>

using namespace std;

double a[10],b,c,tb;

int i,n;

int main()

{

cout<<"Nhap so cot thuong xuyen:"; cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

cout<<"Nhap diem giua ki:"; cin>>b;

cout<<"Nhap diem cuoi ki:"; cin>>c;

tb=0;

for (i=1; i<=n; i++) tb=tb+a[i];

tb=tb+b+c;

tb=tb/((n+2)*1.0);

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

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

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

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

else cout<<"Yeu";

return 0;

}

uses crt;

var a:array[1..100]of real;

i,n,dem1,dem2,dem3,dem4:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

dem1:=0;

dem2:=0;

dem3:=0;

dem4:=0;

for i:=1 to n do 

  begin

 if (a[i]>=8) then inc(dem1);

if (6.5<=a[i]) and (a[i]<=7.9) then inc(dem2);

if (5<=a[i]) and (a[i]<=6.4) then inc(dem3);

if (a[i]<5) then inc(dem4);

end;

writeln('So hoc sinh gioi la: ',dem1);

writeln('So hoc sinh kha la: ',dem2);

writeln('So hoc sinh trung binh la: ',dem3);

writeln('So hoc sinh kem la: ',dem4);

readln;

end.

10 tháng 4 2023

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.

25 tháng 4 2021

uses crt;

var a:array[1..10]of integer;

i,n,tb:integer;

begin

clrscr;

for i:=1 to 10 do 

  begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to 10 do 

  if a[i]>=8 then write(a[i]:4);

tb:=0;

for i:=1 to 10 do 

  tb:=tb+a[i];

writeln;

writeln('Diem trung binh cua 10 ban la: ',tb:4:2);

readln;

end.