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.

23 tháng 12 2021

Help

23 tháng 12 2021

Mình viết ở ngôn ngữ c++ nhé:

#include<iostream> 

using namespace std; 

int main() { 

double a; 

  cout << "Diem trung binh : "; cin >> a;

if (a >= 1 && a <= 10) { 

  if (a >= 8) { 

    cout << "Gioi"; 

} else if (a >= 6.5 && a <= 7.9) { 

    cout << "kha"; 

} else if (a <= 6.4 && a >= 5) { 

    cout << "trung binh"; 

} else { 

    cout << "yeu"; 

     }

} else {

    cout << "Diem so khong hop le";

     } 

return 0; 

}

 

9 tháng 12 2021

var t,v,a,dtb: real;

begin

    writeln(' diem mon Toan la: ');

    read(t);

    writeln(' diem mon Van la: ');

    read(v);

    writeln(' diem mon Anh la: ');

    read(a);

    dtb = ( t + v + a)/3

    if ( dtb >= 5 ) then 

           writeln(' duoc len lop');

    else

           writeln(' thi lai');

    readln;

end.

28 tháng 4 2022

uses crt;
var NS:array[1..100] of integer; Dtoan,Dvan,Dtb:array[1..100] of real;
hoten:array[1..100] of string; i:byte;
begin
clrscr;
for i:=1 to 45 do
begin
write('Nhap ten cua hoc sinh thu',i,':'); readln(hoten[i]);
write('Nhap ngay sinh:'); readln(NS[i]);
write('Nhap diem toan:'); readln(Dtoan[i]);
write ('Nhap diem van:'); readln(Dvan[i]);
Dtb[i]:=(Dtoan[i]+Dvan[i])/2;
end;
writeln('Diem trung binh cua cac ban trong lop la:');
for i:=1 to 45 do
writeln(hoten[i],':',Dtb[i]:1:2);
readln;
end.
Tham khảo thui!

28 tháng 4 2022

i:byte nghĩa là sao bạn

 

8 tháng 4 2017

Uses CRT;

Var TB : real;

BEGIN

clrscr;

repeat

begin

write('Moi ban nhap diem trung binh: ');

Readln(TB);

end;

until (TB>0) and (TB<10);

If (TB >= 8) then write('hoc luc gioi') else

If (TB>=6.5) then write('hoc luc kha') else

If (TB>5) then write('hoc luc trung binh') else

If (TB>3.5) then write('hoc luc yeu') else

write('hoc luc kem');

Readln;

END.

2 tháng 12 2016

Uses CRT;

Var TB : real;

Begin

clrscr;

Readln(TB);

If TB >= 8 then write('hoc luc gioi') else

If 6.5<=TB<8 then write('hoc luc kha') else

If 5<=TB<6.5 then write('hoc luc trung binh') else

If 3.5<=TB<5 then write('hoc luc yeu') else

write('hoc luc kem');

Readln;

End.

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.

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

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.