Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
loli
Xem chi tiết
Bùi Anh Tuấn
4 tháng 1 2021 lúc 20:26

Nguyễn Lê Phước Thịnh
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.

loli
4 tháng 1 2021 lúc 20:15

help

Nguyễn Thị Thu Hiền
Xem chi tiết
Nguyễn Lê Phước Thịnh
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.

Khách vãng lai đã xóa
Thạch Ngọc Trúc Ly
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.

Khách vãng lai đã xóa
Trương Quang Dũng
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 ";

}

Khách vãng lai đã xóa
Thanh Hải
Xem chi tiết
Ms 37: Phạm Minh Phúc
Xem chi tiết
Nguyễn Lê Phước Thịnh
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.

T.Huy
Xem chi tiết
Nguyễn Lê Phước Thịnh
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;

}

T.Huy
Xem chi tiết
Nguyễn Lê Phước Thịnh
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;

}

Uyên Nguyễn Ngọc Nhã
Xem chi tiết
Nguyễn Lê Phước Thịnh
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.

thành phạm
Xem chi tiết
thành phạm
19 tháng 12 2019 lúc 22:23

hộ mình với ạ 

Khách vãng lai đã xóa
Võ Văn Trường
Xem chi tiết