1/Viết chương trình nhập từ bàn phím điểm trung bình môn của
bạn Tý. Thông báo ra màn hình bạn Tý là học sinh gì?
Giả sử cách xếp loại học sinh như sau:
Xếp loại
|
Yêu cầu điểm trung bình các môn học (TBM)
|
Kém
|
TBM<3.5
|
Yếu
|
3.5<=TBM<5
|
Trung bình
|
5<=TBM<6.5
|
Khá
|
6.5<=TBM<8
|
Giỏi
|
TBM>=8
|
ví dụ
sô 1= 30
số 2= 8
số 3=79
số 4= 10
giá trị lớn nhất là 79
3/Viết chương trình nhập từ bàn phím1 số nguyên dương không lớn hơn 10000. Thông báo ra màn hình số đó có bao nhiêu chữ số
ví dụ
nhập số là 2339 thì số này có 4 chữ số
4/Viết chương trình nhập từ bàn phím1 số nguyên dương không lớn hơn 10000. Thông báo ra màn hình chữ số lớn nhất của nó là số nào?
ví dụ
nhập số là 2804 thì chữ số lớn nhất của số này là 8
ví dụ
nhập số là 2804 thì chữ số lớn nhất của số này là 8
Bài 1
Trả lờiXóavar
x:real;
begin
write('nhap x=');readln(x);
if x<3.5 then
writeln('Ty la hs kem');
if (x>=3.5) and (x<5) then
writeln('Ty la hs yeu');
if (x>=5) and (x<6.5) then
writeln('Ty la hs trung binh');
if (x>=6.5) and (x<8) then
writeln('Ty la hs kha');
if x>=8 then
writeln('Ty la hs gioi');
readln;
end.
Var A:integer ;
XóaBegin
Writeln(‘nhap so diem’);
Readln(a);
If (a<3.5) then
Writeln(‘kem’);
If (a=>3.4) and (a<5) then
Writeln(‘yeu’);
If (a=>5) and (a<6.5) then
Writeln(‘trung binh’);
If (a=>6.5) and (a<8) then
Writeln(‘kha’);
If (a=>8) then
Writeln(‘kha’);
Readln;
End.
Var A:integer ;
Begin
Writeln(‘nhap so diem’);
Readln(a);
If (a<3.5) then
Writeln(‘kem’);
If (a=>3.4) and (a<5) then
Writeln(‘yeu’);
If (a=>5) and (a<6.5) then
Writeln(‘trung binh’);
If (a=>6.5) and (a<8) then
Writeln(‘kha’);
If (a=>8) then
Writeln(‘kha’);
Readln;
End.
Var A:integer ;
Begin
Writeln(‘nhap so diem’);
Readln(a);
If (a<3.5) then
Writeln(‘kem’);
If (a=>3.4) and (a<5) then
Writeln(‘yeu’);
If (a=>5) and (a<6.5) then
Writeln(‘trung binh’);
If (a=>6.5) and (a<8) then
Writeln(‘kha’);
If (a=>8) then
Writeln(‘kha’);
Readln;
End.
Var A:integer ;
Begin
Writeln(‘nhap so diem’);
Readln(a);
If (a<3.5) then
Writeln(‘kem’);
If (a=>3.4) and (a<5) then
Writeln(‘yeu’);
If (a=>5) and (a<6.5) then
Writeln(‘trung binh’);
If (a=>6.5) and (a<8) then
Writeln(‘kha’);
If (a=>8) then
Writeln(‘kha’);
Readln;
End.
2 Var A:integer ;
XóaBegin
Writeln(‘nhap so diem’);
Readln(a);
If (a<=9) then
Writeln(‘co 1 so’);
If (a<=99) then
Writeln(‘co 2 so’);
If (a<=999) then
Writeln(‘co 3 so’);
If (a<=9999) then
Writeln(‘co 4 so’);
If (a<=99999) then
Writeln(‘co 5 so’);
If (a<=999999) then
Writeln(‘co 6 so’);
Readln;
End.
Bài 1 và bài 3 em làm đúng rồi đó.Phát huy nhé
Xóaprogram bai4;
Trả lờiXóauses crt;
var