Kết quả của chương trình sau là:
Begin
Writeln(‘5+20=’,20+5);
Readln;
Nếu ĐTB<0 hoặc ĐTB>10 thì thông báo “Điểm không hợp lệ”,ngược lại:
– Nếu ĐTB > hoặc =8 thì xếp loại Giỏi
– Nếu 6,5< hoặc = ĐTB<8 ĐTB thì xếp loại Khá
- Nếu 5< hoặc = ĐTB<6,5 thì xếp loại
Trung bình
Còn lại xếp loại yếu
Đây là viết chương trình trên pascal ,mong mọi ng giúp
Câu 1:
5+20=25
Câu 2:
Program BTT;
Uses crt;
Var a: real;
Begin
Clrscr;
Write(‘Nhap diem: ‘); Readln(a);
If (a>0) and (a<=10) then
Begin
If a<5 then Write(‘Xep loai yeu’);
If (a>=5) and (a<6.5) then Write(‘Xep loai trung binh!’);
If (a>=6.5) and (a<8) then Write(‘Xep loai kha!’);
If a>=8 then Write(‘Xep loai gioi’);
End
Else Write(‘Diem khong hop le’);
Readln
End.