K
Khách

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.

28 tháng 11 2019

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.

18 tháng 4 2017

(*) 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.

24 tháng 12 2019

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.

24 tháng 12 2019

Hỏi đáp Tin học