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 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.
Var a:array:[1..50] of real;
i,max:integer;
Begin
For i:=1 to 50 do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
End;
Write('Cac diem vua nhap la: ');
For i:=1 to 50 do
Write(a[i]:10:2);
Writeln;
max:=a[1];
For i:=2 to 50 do
if a[i]>max then max:=a[i];
Write('Diem trung binh lon nhat la ',max:10:2);
Readln
End.
Var a:array:[1..50] of real;
i:integer;
max:real;
Begin
For i:=1 to 50 do
Begin
Write('Nhap diem thu ',i,' = ');readln(a[i]);
End;
Write('Cac diem vua nhap la: ');
For i:=1 to 50 do
Write(a[i]:10:2);
writeln;
max:=a[1];
For i:=2 to 50 do
if a[i] > max then max:=a[i];
write('Diem lon nhat la ',max:10:2);
Readln
End.
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.
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.
#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) and (tb<6.5)) cout<<"Trung binh";
else cout<"Yeu";
return 0;
}
#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:array[1..10]of real;
ln,nn:real;
i:integer;
begin
clrscr;
for i:=1 to 10 do readln(a[i],b[i],c[i]);
for i:=1 to 10 do
tb[i]:=(a[i]+b[i]+c[i])/3;
ln:=0;
nn:=10;
for i:=1 to 10 do
begin
if ln<tb[i] then ln:=tb[i];
if nn>tb[i] then nn:=tb[i];
end;
writeln(ln:4:2);
writeln(nn:4:2);
for i:=1 to 10 do
begin
if tb[i]>=5 then writeln('Ban thu ',i,' Dat')
else writeln('Ban thu ',i,'Chua dat');
end;
readln;
end.