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.

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.

30 tháng 12 2021

Help me pls

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)/5;

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

else if ((tb>=7) and (tb<9)) cout<<"Kha";

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

else cout<<"Yeu";

return 0;

}

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)/5;

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

else if ((tb>=7) and (tb<9)) cout<<"Kha";

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

else cout<<"Yeu";

return 0;

}

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.

28 tháng 4 2021

nếu chạy ct mà nó không dừng lại thì bấm alt+F5 nhá

28 tháng 4 2021

thank

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.

14 tháng 4 2023

# Nhập điểm từ bàn phím
diem = float(input("Nhập điểm của học sinh: "))

# Xếp loại học lực dựa trên điểm số
if diem >= 8:
    print("Học sinh giỏi")
elif diem >= 6.5:
    print("Học sinh khá")
elif diem >= 5:
    print("Học sinh trung bình")
elif diem >= 3.5:
    print("Học sinh yếu")
else:
    print("Học sinh kém")

18 tháng 12 2019

Hỏi đáp Tin học