in ra màn hình số đối của n n là số nguyên nhập từ bàn phím

2 câu trả lời

program bai_giai;
uses crt;
var n:longint;s:string;
begin
 clrscr;
  write('n=');readln(n);
  if(n>0)then write('so doi cua ',n,' la:-',n)else
        begin
         str(n,s);
         delete(s,1,1);
         write('so doi cua ',n,' la:',s);
        end;
 readln
end.

var n:longint;
begin
        read(n);
        if n>0 then write(-n);
        if n<0 then write(-n);
readln;
readln;
end.