4 chương trình này mình rồi nhé chạy thử rồi nhé :3 bạn tham khảo 

bài 1: 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.

program hotboy;

uses crt;

var ,gio,phut,x: integer;

begin

clrscr;

write('nhap thoi gian lam cong viec do',x);

readln(x);

gio:=x/3600;

phut:=x/60;

write(x,'chuyen ra duoc',gio,'chuyen ra duoc',phut,'va',x,'giay);

readln

end.

Bài 2: Trăm trâu trăm cỏ Trâu đứng ăn năm Trâu nằm ăn ba Trâu già ba con một bó. Hỏi có bao nhiêu con mỗi loại?

program hotboy;

uses crt;

var a,b,c : integer;

Begin

Clrscr; 

For a:=1 to 20 do  

  For b:=1 to 33 do     

begin     

c:=100-(c+b);

      if 5*a+3*b+c/3 = 100 then     

  Writeln('co so trau dung la ',a,' so trau nam la ',b,' so trau gia la ',c);     

end;

readln

end.

Bài 3: Nhập tuổi bàn phím tuổi của cha và con ( hiện tại tuổi cha lớn hơn hai lần tuổi con và tuổi cha hơn tuổi con ít nhất là 25).

Đưa ra màn hình câu trả lời cho câu hỏi: “Bao nhiêu năm nữa thì tuổi cha gấp đôi tuổi con?”

Program hotboy;

uses crt;

Var a,b,i:integer;

Begin

 clrscr;

i:=0;

repeat

write('nhap tuoi cua cha'); readln(a);

until a>=25;

write('nhap tuoi cua con'); readln(b);

    while a<>2b do

begin

a:=a+1; b:=b+1; i:=i+1;

end;

write('sau',i,'nam nua tuoi cha gap doi tuoi con');

readln

end.

Bài 4: Tìm số ngày của năm N, biết rằng năm nhuận là năm chia hết cho 400 hoặc chia hết cho 4 nhưng không chia hết cho 100. VD: năm 2000, 2004 là năm nhuận và có số ngày là 366 Năm 1900, 1945 không phải là năm nhuận và có số ngày là 365

program hotboy;

uses crt;

n:integer;

begin

clrscr;

if n mod 4000=0 or n mod 4=0 and n mod 100<>0 then writeln(n,'la nam nhuan va co 366 ngay')

else writeln(n,'khong phai la nam nhuan va co 365 ngay');

readln

end.

Bài 1

Program DOI_GIO_PHUT_GIAY; Uses crt; Var gio, phut,giay, x: longint; BEGIN Clrscr; Writeln('DOI SANG GIO PHUT GIAY'); Writeln('--------------------------------------'); Write('Nhap vao so giay: '); readln(x); gio:=x div 3600; x:=x mod 3600; phut:=x div 60; x:=x mod 60; Writeln('Ket qua = ', gio,'gio: ', phut, 'phut: ', x, 'giay'); Readln; END.

Bài 2

Nội dung chi tiết câu hỏi:
Có tổng số 100 con trâu, và 100 bó cỏ.
Có 3 loại trâu là: trâu đứng, trâu nằm, và trâu già.
Mỗi con trâu đứng sẽ ăn 5 bó cỏ, mỗi trâu nằm ăn 3 bó cỏ, trâu già thì 3 con ăn 1 bó cỏ.

Hỏi số trâu mỗi loại là bao nhiêu, biết rằng theo như cách chia cỏ trên, thì tất cả là 100 con trâu, 100 bó cỏ.

Có 3 đáp án đúng: Số trâu mỗi loại là:
Đáp án 1: Trâu đứng 4, trâu nằm 18, trâu già 78.
Đáp án 2: Trâu đứng 8, trâu nằm 11, trâu già 81.
Đáp án 3: Trâu đứng 12, trâu nằm 4, trâu già 84.

Bài 3

program bai7; uses crt; var tcha,tcon,nam:integer; begin clrscr; writeln('nhap vao tuoi cha va tuoi con '); readln(tcha,tcon); nam:=0; while(tcha<>tcon*2) do begin tcha:=tcha+1; tcon:=tcon+1; nam:=nam+1; end; writeln('sau ',nam,' nam nua thi tuoi cha gap 2 lan tuoi con'); readln; end.