Quảng cáo
4 câu trả lời 1043
Uses CRT;
Var TB : real;
BEGIN
clrscr;
repeat
begin
write('Moi ban nhap diem trung binh: ');
Readln(TB);
end;
until (TB>0) and (TB<10);
If (TB >= 8) then write('hoc luc gioi') else
If (TB=6.5) then write('hoc luc kha') else
If (TB>6,5) then write('hoc luc trung binh') else
write('hoc luc kem');
Readln;
Uses CRT;
Var TB : real;
BEGIN
clrscr;
repeat
begin
write('Moi ban nhap diem trung binh: ');
Readln(TB);
end;
until (TB>0) and (TB<10);
If (TB >= 8) then write('hoc luc gioi') else
If (TB=6.5) then write('hoc luc kha') else
If (TB>6,5) then write('hoc luc trung binh') else
write('hoc luc kem');
Readln;
Uses CRT;
Var TB : real;
BEGIN
clrscr;
repeat
begin
write('Moi ban nhap diem trung binh: ');
Readln(TB);
end;
until (TB>0) and (TB<10);
If (TB >= 8) then write('hoc luc gioi') else
If (TB=6.5) then write('hoc luc kha') else
If (TB>6,5) then write('hoc luc trung binh') else
write('hoc luc kem');
Readln;
Uses CRT;
Var TB : real;
BEGIN
clrscr;
repeat
begin
write('Moi ban nhap diem trung binh: ');
Readln(TB);
end;
until (TB>0) and (TB<10);
If (TB >= 8) then write('hoc luc gioi') else
If (TB=6.5) then write('hoc luc kha') else
If (TB>6,5) then write('hoc luc trung binh') else
write('hoc luc kem');
Readln;
Quảng cáo
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK44808
-
Hỏi từ APP VIETJACK26498
-
红玫瑰✿
700 điểm
-
An mê otp Dương Hùng.
650 điểm
-
જ⁀➴ღ ɲɦư亗♡
525 điểm
-
An mê otp Dương Hùng
330 điểm
-
丹薇
295 điểm
-
奶茶
260 điểm
-
🌷͙֒✘ıռɠυռ🌷
210 điểm
-
Bảo An Nguyễn 125 điểm
-
Hello Bấy bì 85 điểm
-
Ta Uyen Nhi 65 điểm
-
Hồ Uyên 60 điểm
-
小太阳🌻
45 điểm
-
郑金志 30 điểm
Rút gọn
Bài viết mới nhất Lớp 8
-
3 năm trước7603
-
3 năm trước7241
-
3 năm trước6218
-
3 năm trước5971
-
3 năm trước6006
