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.
uses crt;
var toan,ly,hoa,anh,van,sinh,su,dia,gdcd,gdqp,cn,td,dtb:real;
begin
clrscr;
repeat
write('nhap diem toan hoc:'); readln(toan);
if (toan<0) or (toan>10) then writeln('nhap lai');
until (0<=toan) and (toan<=10);
repeat
write('nhap diem vat ly:'); readln(ly);
if (ly<0) or (ly>10) then writeln('nhap lai');
until (0<=ly) and (ly<=10);
repeat
write('nhap diem hoa hoc:'); readln(hoa);
if (hoa<0) or (hoa>10) then writeln('nhap lai');
until (0<=hoa) and (hoa<=10);
repeat
write('nhap diem tieng anh:'); readln(anh);
if (anh<0) or (anh>10) then writeln('nhap lai');
until (0<=anh) and (anh<=10);
repeat
write('nhap diem ngu van:'); readln(van);
if (van<0) or (van>10) then writeln('nhap lai');
until (0<=van) and (van<=10);
repeat
write('nhap diem sinh hoc:'); readln(sinh);
if (sinh<0) or (sinh>10) then writeln('nhap lai');
until (0<=sinh) and (sinh<=10);
repeat
write('nhap diem lich su:'); readln(su);
if (su<0) or (su>10) then writeln('nhap lai');
until (0<=su) and (su<=10);
repeat
write('nhap diem dia li:'); readln(dia);
if (dia<0) or (dia>10) then writeln('nhap lai');
until (0<=dia) and (dia<=10);
repeat
write('nhap diem giao duc cong dan:'); readln(gdcd);
if (gdcd<0) or (gdcd>10) then writeln('nhap lai');
until (0<=gdcd) and (gdcd<=10);
repeat
write('nhap diem giao duc quoc phong:'); readln(gdqp);
if (gdqp<0) or (gdqp>10) then writeln('nhap lai');
until (0<=gdqp) and (gdqp<=10);
repeat
write('nhap diem cong nghe:'); readln(cn);
if (cn<0) or (cn>10) then writeln('nhap lai');
until (0<=cn) and (cn<=10);
repeat
write('nhap diem the duc:'); readln(td);
if (td<0) or (td>10) then writeln('nhap lai');
until (0<=td) and (td<=10);
dtb:=(toan+ly+hoa+anh+van+sinh+su+dia+gdcd+gdqp+cn+td)/13;
writeln('diem trung binh la: ',dtb:4:2);
if dtb>=8 then writeln('gioi')
else if (dtb<8) and (dtb>=6.5) then writeln('kha')
else if (dtb>6.5) and (dtb<=5) then writeln('trung binh')
else writeln('yeu');
readln;
end.
#include <bits/stdc++.h>
using namespace std;
double x;
int main()
{
cin>>x;
if ((3.5<=x) and (x<=4.9)) cout<<"Yeu";
else if ((5.0<=x) and (x<=6.4)) cout<<"Trung binh";
else if ((6.5<=x) and (x<=7.9)) cout<<"Kha";
else cout<<"Gioi";
return 0;
}
uses crt;
const n=10;
var diem:array[1..n]of real;
i,dem,dem1:integer;
t,tbc:real;
begin
clrscr;
for i:=1 to n do
begin
write('diem[',i,']='); readln(diem[i]);
end;
{-----------------------tinh-tong-diem-cua-10-hoc-sinh---------------------------------}
t:=0;
for i:=1 to n do
t:=t+diem[i];
writeln('tong diem cua 10 hoc sinh la: ',t:4:2);
{----------------------tinh-diem-tbinh-cua-10-hoc-sinh---------------------------------}
tbc:=t/n;
writeln('diem trung binh cua 10 hoc sinh la: ',tbc:4:2);
{---------------------dem-so-hoc-sinh-co-diem>5---------------------------------------}
dem:=0;
for i:=1 to n do
if diem[i]>5 then inc(dem);
writeln('so hoc sinh co diem lon hon 5 la: ',dem);
{---------------------dem-so-hoc-sinh-gioi--------------------------------------------}
dem1:=0;
for i:=1 to n do
if diem[i]>=8 then inc(dem1);
writeln('so hoc sinh gioi la: ',dem1);
readln;
end.
program diem_thi;
uses crt;
var dt: real;
begin
clrscr;
writeln(' nhap diem thi:'); readln(dt);
if dt=>8 then writeln('loai gioi:');
if (6.5 <= dt) and (dt<8.0) writeln(' loai kha:');
if (5<=dt) and (dt<6,5) then writeln(' loai trung binh:');
if dt<5 then writeln('loai ken:');
readln;
end.
#include <bits/stdc++.h>
using namespace std;
double a,b,c,tbc;
int main()
{
cin>>a>>b>>c;
tbc=(a+b+c)/3;
cout<<"Tong la:"<<fixed<<setprecision(2)<<a+b+c<<endl;
cout<<"TBC la:"<<fixed<<setprecision(2)<<tbc;
return 0;
}
uses crt;
var a:real;
begin
clrscr;
readln(a);
if (a>=9) then write('A')
else if ((7<=a) and (a<9)) then write('B')
else if ((5<=a) and (a<7)) then write('C')
else write('D');
readln;
end.
python
diem_tb = float(input("Nhập điểm trung bình của học sinh: "))
if diem_tb >= 9:
loai = 'A'
elif diem_tb >= 7:
loai = 'B'
elif diem_tb >= 5:
loai = 'C'
else:
loai = 'D'
print("Loại học sinh: ", loai)
Pascal
program PhanLoaiHocSinh;
var
diem_tb: real;
loai: char;
begin
write('Nhap diem trung binh cua hoc sinh: ');
readln(diem_tb);
if diem_tb >= 9 then
loai := 'A'
else if diem_tb >= 7 then
loai := 'B'
else if diem_tb >= 5 then
loai := 'C'
else
loai := 'D';
writeln('Loai hoc sinh: ', loai);
end.