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.
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;
}
uses crt;
var t,v,dtb:real;
begin
clrscr;
write('nhap diem toan:'); readln(t);
write('nhap diem van:'); readln(v);
dtb:=(t+v)/2;
writeln('diem trung binh la: ',dtb:4:2);
if dtb<5 then writeln('xep loai yeu')
else if (dtb>=5) and (dtb<6.5) then writeln('xep loai trung binh')
else if (dtb>=6.5) and (dtb<8) then writeln('xep loai kha')
else writeln('xep loai gioi');
readln;
end.
Program bt;
Var t,v,dtb:real;
Begin
Writeln('nhap t:=');
Readln(t);
Writeln('nhap v:=');
Readln(v);
dtb:=(t+v)/2;
Writeln('diem trung binh là:=',dtb);
if dtb<5.0 then writeln('xep loai yeu');
if 5.0<=dtb<=6.5 then writeln('xep loai trung binh');
if 6.5<=dtb<=8.0 then writeln('xep loai kha');
if dtb>=8.0 then writeln('xep loai gioi');
Readln;
End.
uses crt;
var diem:real;
begin
clrscr;
repeat
write('Nhap diem trung binh:'); readln(diem);
until (0<=diem) and (diem<=10);
if diem<5 then writeln('Xep loai yeu')
else if (5<=diem) and (diem<6.5) then writeln('Xep loai trung binh')
else if (6.5<=diem) and (diem<8.0) then writeln('Xep loai kha')
else writeln('Xep loai gioi');
readln;
end.
program CT_dautien;
uses crt;
var a:integer;
begin
clrscr;
writeln('moi nhap so a');readln(a);
if a mod 2 = 0 then write(a, 'la so chan') else write(a, 'la so le');
readln
end.
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.
program CT_dautien;
uses crt;
var
begin
clrscr;
writeln('moi nhap diem'); readln(x);
if x>= 8.0 then write(x, ' la loai gioi');
if x>=6.5 then write(x, ' la loai kha');
if x>=5.0 then write(x, ' la loai trung binh');
if x>=3.4 then write(x, ' la loai yeu');
if x<3.4 then write(x, ' la loai kem');
readln
end.
y quen cho var ban ghi la: var x: integer