xuất số đối của n n nhập từ bàn phím; n là số âm hay số dương gì cũng được; pascal đó

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.

uses crt;
var n:longint;
begin
clrscr;
   write('Nhap n: ');readln(n);
   writeln('So doi cua n: ',-n);
readln
end.

Câu hỏi trong lớp Xem thêm