Nguyen Dung's Profile

bài 1:

var x,y: real;

begin

write('nhap x tu ban phim');

readln(x);

if x>=1 then y= x-1 else y= 1-x;

writeln('gia tri cua y la',y);

readln

end.

bài 2:

var a,b,c : real;

begin

write('nhap a,b,c tu ban phim');

readln(a,b,c);

if(sqr(a)=b*b + c*c) then writeln('tam giac do la tam giac vuong') else

if(a=b=c) then writeln('tam giac do la tam giac deu') else

if(a=b) or (a=c) or (b=c) then writeln('tam giac do la tam giac can') else

writeln('tam giac do la tam giac thuong');

readln

end.

a:=copy(s,1,1);

b:=copy(s,legth(s),1);

c:=a+b;

insert(c,s,1);

delete(s,1,2);

t:=copy(s,1,legth(s));

writeln(s);

copy(s);

(s là xâu đó)

delete(s,1,1);

delete(s,legth(s),1);

(s là xâu đó)