-x+(-12)=-14-15

-x+(-12)=-29

        -x=-29-(-12)

        -x=-17

Bạn có thể tham khảo nha :P

program bai1;

var i :Integer;

begin

clrscr;

for i:= 9 to 25 do

if((i * 2 + (36 - i) * 4) = 100) then

writeln('So ga la: ', i);

writeln('So cho la: ', 36 - i);

readln;

end.

(1000 - 37) : 3

= 963 : 3

= 321

Câu trả lời của mik là vậy, bạn tick cho mik nhé!

1.

Program bai1;

uses crt;

var i,n: integer;

begin

clrscr;

write('nhap so n ='); readln(n);

i:=1;

while i<=n do

begin

write(i:3,', ');

i:=i+2;

end;

readln;

end.

Program bai1;

uses crt;

var tu,mau: integer;

a,b,r,ucln : integer;

begin

clrscr;

write('nhap tu ='); readln(tu);

write('nhap mau ='); readln(mau);

if mau = 0 then writeln('khong phai la phan so ')

else

begin

write(tu ,' / ' , mau);

a:=tu;

b:=mau;

r:=a mod b;

while r <> 0 do

begin

a:=b;

b:=r;

r:=a mod b ;

end;

ucln:=b;

tu:=tu div ucln;

mau:= mau div ucln;

if mau <> 1 then

write('=' , tu , '/' ,mau)

else write(tu);

end;

readln;

end.