1. 

In: Giờ (h).

Out: Giây (s).

MTTT:

B1: s ← h*3600.

B2: Thông báo s và KTTT.

VCT:

program ct_btpt;

uses crt;

  var h, s: real;

begin

  clrscr;

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

  s:=h*3600;

  writeln(h:2:1, ' co so giay tuong ung la: ', s:2:1);

  readln

end.

2.

In: Giây (s).

Out: Giờ (h), phút (p), giây (s).

MTTT:

B1: h ← s/3600

B2: p ← h*60

B3: s ← s

B4: Thông báo h, p, s và KTTT

VCT

program ct_btpt;

uses crt;

  var h, p, s: real;

begin

  clrscr;

  write('Nhap giay = '); readln(s);

  h:=s/3600;

  p:=h*60;

  s:=s;

  writeln(s:2:1, ' co so gio tuong ung la: ', h:2:1);

  writeln(s:2:1, ' co so phut tuong ung la: ', p:2:1);

  writeln(' So giay la: ', s:2:1);

  readln

end.

3.

In: Số có 3 chữ số (abc)

Out: Đơn vị (dv), chục (ch), trăm (tr).

MTTT:

B1: dv ← abc mod 10

B2: ch ← (abc div 10) mod 10

B3: tr ← abc div 100

B4: Thông báo dv, ch, tr và KTTT.

VCT:

program ct_btpt;

uses crt;

  var dv, ch, tr: integer;

begin

  clrscr;

  write('Nhap so co ba chu so: '); readln(abc);

  writeln('Chu so o hang don vi la: ', abc mod 10);

  writeln('Chu so o hang chu la: ', (abc div 10) mod 10);

  writeln('Chu so o hang tram la: ', abc div 100);

  readln

end. 

Bài 1:

Program NN;
Uses crt;
Var gio,giay: qword;
Begin
        Clrscr;
        Write('Nhap gio: '); Readln(gio);
        giay:=gio*3600;
        Write('Giay = ',giay);
        Readln
End.

Bài 2:

Program NN;
Uses crt;
Var giay,gio,phut: qword;
Begin
        Clrscr;
        Write('Nhap giay: '); Readln(giay);
        gio:=giay div 3600;
        giay:=giay mod 3600;
        phut:=giay div 60;
        giay:=giay mod 60;

        Write(gio,' : ',phut,' : ',giay);
        Readln
End.

Bài 3:

Program NN;
Uses crt;
Var St: String;
Begin
        Clrscr;
        Write('Nhap so: '); Readln(St);
        Write(St[3],St[2],St[1]);
        Readln
End.