giúp mik với mng ơi Câu 3: viết chương trình nhập a,b, sau đó tính a/b nếu b<=0 thì xuất ra không thực hiện được. Câu 4: Viết chương trình Pascal để nhập tuổi nếu <16 thì in ra tuổi học sinh đó không đủ điều kiện vào học lớp 10. Ngược lại in ra đủ điều kiện câu 5: Viết chương trình Pascal để nhập một số nguyên bất kỳ từ bàn phím và in kết quả ra màn hình để nói cho người dùng biết số đó là lớn hay nhỏ hơn 100.

Câu 3

code

program baitap;

uses crt;

var a,b,t:real;

begin

write('nhap a,b');

read(a,b);

if b<=0 then write(' ko thuc hien dc');

t:=a/b;

write(t:3:3);

readln;

readln;

end.

Câu 4

code

program baitap;

uses crt;

var a:longint;

begin

write('nhap tuoi');

read(a);

if a<16 then write('chua du dieu kien va hoc lop 10')
else write('da du dieu kien');

readln;

readln;

end.

Câu 5

code

program baitap;
uses crt;
var a:longint;

begin

write('nhap so do');

read(a);

if a<100 then write('so do be hon 100')

else write('so do lon hon 100');

readln;

readln;

end.

Câu 1:

var t,a,b:real;
begin
read(a,b);
if t>0 then
t:=a/b;
write(t:3:2);
while b<=0 do
write('ko thuc hien dc');
readln;
end.

Câu2var n:integer;
begin
read(n);
if n<16 then write('ko du dieu kien vao lop 10') else
write('du dieu kien vao lop 10');
end.

Câu 3:

var n:longint;
begin
read(n);
if n<100 then write('nho hon 100');
if n>100 then write('lon hon 100');
if n=100 then write('bang 100');
readln;
end.