uses crt;
var n,d: longint;
begin
clrscr;
write ('nhap n: '); readln (n);
if n<=12 then
begin
d:=n;
writeln (d,' AM');
end;
if n>12 then
begin
d:=n-12;
writeln (d,' PM');
end;
readln;
end.
Chắc chắn đúng 100000%
đã chạy thử chương trình
thuật toán nè bạn:
b1: nhập n
b2: nếu n < hoặc = 12 thì (if n<=12 then)
begin
d:=n;
writeln (d,' AM');
end;
b3: nếu n>12 thì (if n>12 then)
begin
d:=n-12;
writeln (d,' PM');
end;
b4: chạy chương trình thôi .....(ctrl+f9) :) ^_^
