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 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.
#include <bits/stdc++.h>
using namespace std;
double a,b,tb;
int main()
{
cin>>a>>b;
tb=(a+b*2)/3;
cout<<fixed<<setprecision(2)<<tb<<endl;
if (tb>=8.0) cout<<"Gioi";
else if ((tb>=6.5) and (tb<8)) cout<<"Kha";
else if ((tb>=5.0) and (tb<6.5)) cout<<"Trung binh";
else cout<<"Yeu";
return 0;
}
#include <bits/stdc++.h>
using namespace std;
double a,b,kq;
int main()
{
cin>>a>>b;
kq=(a+b*2)/3;
cout<<fixed<<setprecision(2)<<kq;
return 0;
}
uses crt;
var a,b,c,tb:real;
begin
clrscr;
readln(a,b,c);
tb:=(a*2+b*2+c);
if (tb>=45) then writeln('Dau lop chuyen')
else if (tb>=40) then writeln('Dau lop tich hop')
else if (tb>=30) then writeln('Dau lop thuong')
else writeln('Rot');
readln;
end.
câu 1)ar i,max,maxnhi,n:integer;
a:array[1..100] of integer;
begin
repeat
write('n=');readln(n);
until (n>1) and (n<40)
for i:=1 to n do begin
write('So thu ',i,': ');readln(a[i]);
end;
max:=a[1];
for i:=2 to n do
if a[i] > max then max:=a[i];
maxnhi:=a[1];
for i:=1 to n do
if (a[i]>maxnhi) and (a[i]<max) then maxnhi:=a[i];
write(' So lon thu 2 la: ',maxnhi);
readln;
end.
uses crt;
var a,b,tb:real;
begin
clrscr;
readln(a,b);
tb:=(a+b*2)/3;
writeln(tb:4:2);
if (tb>=8) then writeln('gioi')
else if ((tb>=6.5) and (tb<8)) then writeln('Kha')
else if ((tb>=5) and (tb<6.5)) then writeln('Trung Binh')
else writeln('Yeu');
readln;
end.