program sosanh;

uses crt;

var a,b,c : real;

begin

      readln(a,b);

      c:= a-b;

      if c>0 then writeln(' a lon hon b');

      if c<0 then writeln('a nho hon b');

      if c=0 then writeln('a bang b');

      readln;

end.

Dốt tin nên chỉ làm dc vậy, đúng thì 5 sao nhé

a) đúng

b) đúng

c) đúng

d) kết quả phụ thuộc vào biến x

nếu x<=1 thì đúng

ngược lại thì sai

thiếu điều kiện:

hoàn chỉnh là thế này

if c^2=a^2+b^2 or a^2=c^2+b^ or b^2=a^2+c^2 then writeln('tam giac do co mot goc vuong') else writeln('tam giac do khong co goc vuong')

còn thiếu:

if sqr(a)=sqr(b)+sqr(c) or sqr(b)=sqr(a)+sqr(c) or sqr(c)=sqr(a)+sqr(b) then writeln('vuong') else writeln('khong vuong');

thieu dk:

the nay dung ne:

if c^2=a^2+b^2 or a^2=b^2+c^2 or b^2=a^2+c^2

then

writeln('tam giac do co 1 goc vuong') else writeln('tam giac do khong co goc vuong')

thieu dk:

the nay dung ne:

if c^2=a^2+b^2 or a^2=b^2+c^2 or b^2=a^2+c^2

then

writeln('tam giac do co 1 goc vuong') else writeln('tam giac do khong co goc vuong')

thieu dk:

the nay dung ne:

if c^2=a^2+b^2 or a^2=b^2+c^2 or b^2=a^2+c^2

then

writeln('tam giac do co 1 goc vuong') else writeln('tam giac do khong co goc vuong')

thieu dk:

the nay dung ne:

if c^2=a^2+b^2 or a^2=b^2+c^2 or b^2=a^2+c^2

then

writeln('tam giac do co 1 goc vuong') else writeln('tam giac do khong co goc vuong')

A