Program doi_gio_phut_giay;

Uses crt;

Var gio, phut,giay, x:longint;

Begin

Clrscr;

Writeln('doi sang gio phut giay');

Write('nhap vao so giay: ');readln(x);

gio:= x div 3600;

x:=x mod 3600;

phut:=x div 60;

x:=x mod 60;

Write('ket qua = ', gio,'gio : ', phut, 'phut : ', x, 'giay');

Readln

End.

bài 1

Tick mình( bài 2):

program ptbnhat;

uses crt;
var a, b: longint;
Begin
write('Nhap so a ='); readln(a);
write('Nhap so b ='); readln(b);
If (a = 0) and (b = 0)
then writeln ('Phuong trinh co nghiem x thuoc R')
else
if (a=0) and (b<>0) then writeln('Phuong trinh vo nghiem')
else
writeln(Nghiẹm la x= ' -b/a);
readln
end.

var a,b : real ;

begin

write('nhap diem cua a'); readln(a);

write('nhap diem cua b'); readln(b);

if a>b then write('ban a nhieu diem hon ban b');

if a<b then write('ban b nhieu diem hon ban a');

if a=b then write('ban a va ban b co diem bang nhau');

readln

end.

var a,b : real ;

write('nhap diem cua ban a'); readln(a);

write('nhap diem cua ban b'); readln(b);

if a>b then write('a nhieu diem hon b') ;

if a<b then write('b nhieu diem hon a');

if a=b then write('hai ban co diem bang nhau');

readln

end.

Ở đây mình sẽ lấy 3 số dương nhé

var a,b,c,S : integer ;

begin

write('nhap gia tri a'); readln(a);

write('nhap gia tri b'); readln(b);

write('nhap gia tri c'); readln(c);

S:=a+b+c;

write('tong la',S);

readln

end.

thiếu dấu ; ở chỗ readln thế mà cho đúng

var a,b,c : integer ;

begin

write('nhap gio'); readln(a);

write('nhap phut'); readln(b);

write('nhap giay'); readln(c);

if (a<=24) and (b<=60) and (c<=60) then write('hop le') else write('khong hop le');

readln

end.

program bai1;

var h,p,g:longnt;

begin

write('Nhap gio: ');readln(h);

write('Nhap phut: ');readln(p);

write('Nhap giay: ');readln(g);

if h>24 then writeln('Gio hop le')

else writeln('Gio khong hop le');

if p>60 then writeln('Phut khong hop le')

else writeln('Phut khong hop le');

if g>60 then writeln('Giay khong hop le')

else writeln('Giay khong hop le');

readln

end.

var a,b : real ;

begin

write('nhap chieu cao cua An'); readln(a);

write('nhap chieu cao cua Minh'); readln(b);

if a>b then write('ban An cao hon') else ('ban Minh cao hon');

readln

end.

var an,minh:real;

begin

write('nhap chieu cao cua an'); readln(an);

write('nhap chieu cao cua minh'); readln(minh);

if an>minh then write('ban an cao hon');

if an<minh then write('ban minh cao hon') else write('hai ban bang nhau');

readln

end.

Mở: Nháy vào biểu tượng pascal

lưu: Vào file chọn save

Chạy: CTRL + F9

Dịch: CTRL +F7

If a < b then D:=a;

If b < c then D:=b;

If c < a then D:=c;