1, Program hai_so_nguyen_x_y;

USES CRT:

Var: x, y: integer;

Begin

Write ('Nhap x= '); Readln (x);

Write ('Nhap y= '); Readln (y);

x<-z;

y<-y;

z<-x;

Readln

End.

2. Program tam_giac;

USES CRT;

Var a, b, c: integer;

Begin

Write ('Nhap a= '); Readln(a);

Write ('Nhap b= '); Readln(b);

Write ('Nhap c= '); Readln(c);

If a+b>c or a+c>b or b+c>a then write (a,b,c la ba canh cua mot tam giac) else write (a,b,c khong la ba canh cua mot tam giac);

Readln

End.

Chúc bn hc tốt, cho mk xin hay nhất, 5 sao và cảm ơn nha^^

#English and Maths

#Alex_Armanto_Siro :3

1.

program phuongt;

uses crt;

  var x, y, t: integer;

begin

           clrscr;

           write('Nhap x = '); readln(x);

           writeln('Nhap y = '); readln(y);

           t:=x;

           x:=y;

           y:=t;

           writeln('Gia tri x, y khi doi cho la: ');

           write('x = ', x, '; y = ', y);

           readln

end.

2.

program phuongt;

uses crt;

  var a, b, c: real;

begin

          clrscr;

          write('Nhap a = '); readln(a);

          write('Nhap b = '); readln(b);

          write('Nhap c = '); readln(c);

          if (a+b>c) and (a+c>b) and (b+c>a) then

          begin

                      write('Lap thanh tam giac');

                      if (a=b) or (b=c) or (a=c) then write('Day la tam giac can');

                      if (a=b) and (b=c) then write('Day la tam giac deu');

                      if (a*a+b*b=c*c) and (a*a+c*c=b*c) and (b*b+c*c=a*a) then write('Day la tam giac vuong');

                      readln

          end

          else

                   write('Khong lap thanh tam giac');

end.