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.

10 tháng 12 2020

uses crt;

var toan,ly,hoa,van,anh,dtb:real;

begin

clrscr;

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

write('Nhap diem Ly:'); readln(ly);

write('Nhap diem Hoa:'); readln(hoa);

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

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

dtb:=(toan+ly+hoa+van+anh)/5;

if dtb>=8 then writeln('Gioi');

if (6,5<=dtb) and (dtb<8) then writeln('Kha');

if (5<=dtb) and (dtb<6,5) then writeln('Trung binh');

if dtb<5 then writeln('Yeu');

readln;

end.

uses crt;

var a,b,c,tb:array[1..100]of real;

i,n:integer;

begin

clrscr;

n:=5;

for i:=1 to n do 

  begin

   readln(a[i],b[i],c[i]);

end;

for i:=1 to n do 

  tb[i]:=(a[i]+b[i]+c[i])/3;

for i:=1 to n do 

  writeln('Diem trung binh cua ban thu ',i,' la: ',tb[i]:4:2);

readln;

end.

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.

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;

}

24 tháng 12 2021

Em cảm ơn

22 tháng 4 2023

program TinhTBCMon;

var

      n, i: integer;

      diemAnh, diemVL, tongDiemAnh, tongDiemVL: real;

begin

      tongDiemAnh := 0;

      tongDiemVL := 0;

      write('Nhap so hoc sinh: ');

      readln(n);

      for i := 1 to n do

      begin

            write('Nhap diem Tieng Anh cua hoc sinh ', i, ': ');

            readln(diemAnh);

            tongDiemAnh := tongDiemAnh + diemAnh;

            write('Nhap diem Vat ly cua hoc sinh ', i, ': ');

            readln(diemVL);

            tongDiemVL := tongDiemVL + diemVL;

      end;

      writeln('Diem trung binh mon Tieng Anh cua lop la: ', tongDiemAnh/n:0:2);

      writeln('Diem trung binh mon Vat ly cua lop la: ', tongDiemVL/n:0:2);

      readln;

end.

2 tháng 3 2022

XEM HÌNH

imagerotate

30 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)*2+c;

if (tb>=38) cout<<"Chuc man ban da thi dau tuyen sinh";

else cout<<"Ban da thi rot, chuc may man lan sau";

return 0;

}