Câu 2: Viết chương trình nhập vào từ bàn phím 1 số nguyên a. Kiểm tra xem a có phải là bội của 3 và 5 không? Câu 3 : Nhập vào ba số a,b,c bất kì. Kiểm tra xem nó có thể là độ dài ba cạnh hay không, nếu không thì in ra màn hình ' Khong la ba canh cua mot tam giac'. Ngược lại, thì in diện tích, chu vi của tam giác ra màn hình. Câu 4: Viết chương trình giải phương trình bậc 1 (ax + b = 0) Câu 5: Tìm giá trị lớn nhất trong 4 số a, b, c, d (a, b, c,d được nhập từ bàn phím). Câu 6: Nhập vào thời gian 1 công việc nào đó là x giây. Hãy chuyển đổi và viết ra màn hình số thời gian trên dưới dạng bằng bao nhiêu giờ, bao nhiêu phút, bao nhiêu giây.

Câu 2:

program boi;

uses crt;

var a : integer;

begin

clrscr;

write('nhap so nguyen a :'); readln(a);

if (a mod 3 =0) and (a mod 5 = 0) then writeln(' a la boi cua 3 va 5')

else writeln(' a  khong la boi cua 3 va 5');

readln

end.

Câu 3:

program tam_giac;

uses crt;

var a, b, c, s, p, cv : real;

begin

clrscr;

write('nhap do dai canh a:'); readln(a);

write('nhap do dai canh b :'); readln(b);

write('nhap do dai canh c :'); readln(c);

if (a+b>c) or (a+c>b) or (b+c>a) then 

writeln('day la do dai ba canh tam giac');

cv := a + b + c;

p := (a+b+c)/2;

s := sqrt(p*(p-a)*(p-b)*(p-c));

writeln('chu vi tam giac la :', cv);

writeln('dien tich tam giac la:', s);

if (a+b<=c) or (b+c<=a) or (a+c<=b) then writeln('khong la ba canh cua mot tam giac');

readln

end.

Câu 4:

program tinh;
uses crt;
var a,b,x:real;
begin
clrscr;
writeln('nhap a: '); readln( a);
write(' nhap b: '); readln( b);
if ((a=0 ) and (b=0)) then write('phuong trinh vo so nghiem') 
else 
if ((a=0) and (b<>0)) then write('pt vo nghiem') 
else
begin
x:=-b/a;
write('phuong trinh  co nghiem x :',x:8:2);
readln;
end;
end.

Câu 5:

program max;
uses crt;
var a, b, c, d: integer;
begin
clrscr;
write('nhap so a :'); readln(a);
write('nhap so b :'); readln(b);
write('nhap so c :'); readln(c);
write('nhap so d :'); readln(d);
if (a>b) and (a>c) and (a>d) then writeln(a,' la so lon nhat');
if (b>a) and (b>c) and (b>d) then writeln(b,' la so lon nhat');
if (c>a) and (c>b) and (c>d) then writeln(c,' la so lon nhat');
if (d>a) and (d>b) and (d>c) then writeln(d,' la so lon nhat');
readln
end.

Câu 6:

program gio;

uses crt;

var  s : real;

begin

clrscr;

write('nhap so giay hoan thanh cong viec :'); readln(s);

writeln('so giay hoan thanh cong viec do la :', s:8:2);

writeln(' so phut hoan thanh cong viec do la :', s/60:8:2);

writeln('so gio hoan thanh cong viec do la :', (s/60)/60:8:2);

readln

end.