Những câu hỏi liên quan
H24
Xem chi tiết
BT
4 tháng 1 2021 lúc 20:26

Bình luận (0)
NT
4 tháng 1 2021 lúc 21:26

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.

Bình luận (0)
H24
4 tháng 1 2021 lúc 20:15

help

Bình luận (0)
NH
Xem chi tiết
NT
27 tháng 12 2019 lúc 21:33

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.

Bình luận (0)
 Khách vãng lai đã xóa
TL
28 tháng 12 2019 lúc 20:38

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.

Bình luận (0)
 Khách vãng lai đã xóa
TD
28 tháng 12 2019 lúc 21:45

#include <bits/stdc++.h>

using namespace std;

int man()

{

double a,b;

cin >> a >> b;

double t = ( a + b ) / 2;

if (t > 8) cout << " Gioi ";

else if (t > 6.5) cout << " Kha";

else if (t > 5) cout << "Trung binh ";

else cout << " Yeu ";

}

Bình luận (0)
 Khách vãng lai đã xóa
TH
Xem chi tiết
MP
Xem chi tiết
NT
10 tháng 1 2022 lúc 8:24

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.

Bình luận (0)
H24
Xem chi tiết
NT
3 tháng 1 2022 lúc 22:19

#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;

}

Bình luận (0)
H24
Xem chi tiết
NT
27 tháng 12 2021 lúc 13:59

#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;

}

Bình luận (2)
UN
Xem chi tiết
NT
4 tháng 4 2022 lúc 7:13

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.

Bình luận (0)
TP
Xem chi tiết
TP
19 tháng 12 2019 lúc 22:23

hộ mình với ạ 

Bình luận (0)
 Khách vãng lai đã xóa
VT
Xem chi tiết