1. Viết chương trình nhập vào 1 số a. Nếu a lớn hơn hoặc bằng 3. In ra màn hình "không hợp lệ". Ngược lại, "số không hợp lệ" 2. Viết chương trình nhập vào 1 số x. Nếu x lớn hơn hoặc bằng 0. In ra màn hình "số dương". Ngược lại, "số âm" 3. Viết chương trình nhập vào điểm trung bình ( ĐTB ) của 1 học sinh từ bàn phím. Nếu ĐtB lớn hơn hoặc bằng 5. In ra màn hình “HS đã thi đậu”. Ngược lại, “HS đã thi rớt.
2 câu trả lời
1
Program sohople;
Uses crt;
Var a: real;
Begin
Clrscr;
Write('nhap a',a); readln(a);
If a>= 3 then writeln('so hop le')
Else writeln('so khong hop le');
{Cai dang sau khong hop le thi cai dang truoc phai hop le chu nhi?}
Readln
End.
2.
Program soamduong;
Uses crt;
Var x: real;
Begin
Clrscr;
Write('nhap x',x); readln(x);
If x>= 0 then writeln('so duong')
Else writeln('so am');
Readln
End.
3.
Program diemtb;
Uses crt;
Var dtb: real;
Begin
Clrscr;
Write('nhap diem trung binh',dtb); readln(dtb);
If dtb>= 5 then writeln('Hs da thi dau')
Else writeln('hs da thi rot ');
Readln
End.
Dương Thiên Vyvy~~~~~~~~~~~~~~
Bài này học rùi mờ !
1,
Program B1;
Uses Crt;
Var a:integer;
Begin
Clrscr;
Writeln('Nhap so a: ', readln(a));
If a>=3 then writeln('So hop le') else writeln('So khong hop le');
Readln;
End.
2,
Program B2;
Uses Crt;
Var x:integer;
Begin
Clrscr;
Writeln('Nhap so x: ', readln(x));
If a>=0 then writeln('So duong') else writeln('So am');
Readln;
End.
3,
Program B3;
Uses Crt;
Var DTB:integer;
Begin
Clrscr;
Writeln('Nhap diem trung binh : ', readln(DTB));
If a>=5 then writeln('Hoc sinh da dau') else writeln('Hoc sinh da thi rot');
Readln;
End.
Bài 5 thì mình xin thua nên mod đừng xóa nhé !