Viết chương trình pascal tính điểm trung bình môn toán và văn. Sau đó, nếu điểm trung bình>=5 thì cho ra màn hình"kết quả đạt", ngược lại là"kết quả không đạt".
2 câu trả lời
uses crt;
var a, b, tb : real;
begin
clrscr;
write('nhap diem mon van : ');readln(a);
write('nhap diem mon toan:');readln(b);
tb := (a+b)/2;
if (tb>=5) then writeln('ket qua dat')
else writeln('ket qua khong dat');
readln
end.
program bai_Giai;
uses crt;
var toan,van,dtb:real;
begin
clrscr;
write('nhap diem mon toan va mon van:');readln(toan,van);
dtb:=(toan+van)/2;
if(dtb>=5)then write('ket qua dat')else write('ket qua khong dat');
readln
end.
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
