bạn trinh do ban diem ;co mot thung nuoc va 2 cai can ,mot cai dung duoc 2l ,mot cai dung duoc 7l.lam the nao de dong duoc 10l nuoc vao thung.mot chut suy nghi va diem da lam dung yeu cau ban trinh.cac ban co biet ban diem da lam nhu the nao khong
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;
write('nhap diem:'); readln(diem);
if diem<5 then writeln('ban can co gang hon');
if (diem>=5) and (diem<6.5) then writeln('ban dat diem trung binh');
if (diem>=6.5) and (diem<8) then writeln('ban dat diem kha');
if diem>=8 then writeln('ban dat diem gioi');
readln;
end.
(*) Sự nóng chảy
+ Sự nóng chảy là sự chuyển thể từ thể rắn sang thể lỏng.
+ Phần lớn các chất nóng chảy ở một nhiệt độ xác định .Nhiệt độ đó gọi là nhiệt độ nóng chảy.
+ Nhiệt độ nóng chảy của các chất khác nhau thì khác nhau
+ Trong suốt thời gian nóng chảy nhiệt độ của vật không thay đổi.
(*) Sự đông đặc
+Sự chuyển từ thể lỏng sang thể rắn gọi là sự đông đặc.
+ Phần lớn các chất đông đặc ở một nhiệt độ xác định. Nhiệt độ đó gọi là nhiệt độ đông đặc.
+ Nhiệt độ đông đặc của các chất khác nhau thì khác nhau
+ Trong suốt thời gian đông đặc nhiệt độ của vật không thay đổi.
a)
Program bt;
Var a,b,c,tb:real;
Begin
Writeln('nhap a:=');
Readln(a);
Writeln('nhap b:=');
Readln(b);
Writeln('nhap c:=');
Readln(c);
tb:=a+b+c/3;
Writeln('diem trung binh cua ba mon:=',tb);
Readln;
End.
b)
Program bt;
Var tb:real;
Begin
Writeln('nhap tb:=');
Readln(tb);
if tb >=8,0 then writeln('hoc luc gioi') else writeln('hoc luc kha');
Readln;
End.