Question

Viết chương trình nhập vào số giờ ,phút giây.Kiểm tra xem giờ,phút ,giây này có hợp lệ hay không?

Answer 1

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.

Answer 2

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.