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.
#include <bits/stdc++.h>
using namespace std;
double a,b,c,tbc;
int main()
{
cin>>a>>b>>c;
tbc=(a*3+b*2+c*3)/8;
cout<<fixed<<setprecision(2)<<tbc;
return 0;
}
uses crt;
var a:array[1..100]of real;
n,i,t:integer;
begin
clrscr;
write('Nhap so hoc sinh='); readln(n);
for i:=1 to n do
begin
repeat
write('Nhap diem hoc ki mon Tin cho hoc sinh thu ',i,'='); readln(a[i]);
until (0<=a[i]) and (a[i]<=10);
end;
for i:=1 to n do
writeln('Diem cua hoc sinh thu ',i,'=',a[i]:4:2);
readln;
end.
Bạn phải cho biết là có bao nhiêu cột điểm đã chứ
bao nhiêu cột miệng, 15', 1 tiết?
#include <bits/stdc++.h>
using namespace std;
double a[100],t;
int n,i;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++)
cout<<"Diem cua ban thu "<<i<<" la: "<<fixed<<setprecision(2)<<a[i]<<endl;
t=0;
for (i=1; i<=n; i++) t+=a[i];
cout<<"Trung binh cua lop la: "<<fixed<<setprecision(2)<<t/(n*1.0);
return 0;
}
Program Diem_Trung_binh;
Uses Crt;
Var
Ten:String[24];
Van,Toan,Ly,tb:Real;
Begin
Clrscr;
Writeln('TINH DIEM TRUNG BINH VA XEP HANG');
Writeln('--------------------------------');
Write('-Cho biet ho ten: ');
Readln(Ten);
Write('-Cho biet diem mon Van: ');
Readln(Van);
Write('-Cho biet diem mon Toan: ');
Readln(Toan);
Write('-Cho biet diem mon Ly: ');
Readln(Ly);
Tb:=((Van*2)+(Toan*2)+ly)/5;
If tb < 5 Then
Begin
Writeln('+Hoc sinh: ',Ten);
Writeln('+Diem trung binh = ',Tb:4:1);
Writeln('+Xep hang: Hoc luc kem');
End
Else if Tb < 7 Then
Begin
Writeln('+Hoc sinh: ',Ten);
Writeln('+Diem trung binh = ',Tb:4:1);
Writeln('+Xep hang: Hoc luc trung binh');
End
Else if Tb < 9 Then
Begin
Writeln('+Hoc sinh: ',Ten);
Writeln('+Diem trung binh = ',Tb:4:1);
Writeln('+Xep hang: Hoc luc Kha');
End
Else
Begin
Writeln('+Hoc sinh: ',Ten);
Writeln('+Diem trung binh = ',Tb:4:1);
Writeln('+Xep hang: Hoc luc Gioi');
End;
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln;
End.
Mk ở Vĩnh Tường bn xem hộ mk đi mk lên mạng tra nhưng không tra được là ngày nào
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.