viết chương trình nhập vào số nguyên x, tính y theo yêu cầu sau.- Nếu x>0 thì y=x+1. -Nếu x<0 thì y=x^2. giải giúp e e cần gấp ạ
viết chương trình nhập vào số nguyên x, tính y theo yêu cầu sau.- Nếu x>0 thì y=x+1. -Nếu x<0 thì y=x^2. giải giúp e e cần gấp ạ
uses crt;
var x,y: integer;
begin
clrscr;
write (‘nhap x: ‘); readln (x);
if x>0 then y:=x+1;
if x<0 then y:=x*x;
writeln (‘gia tri cua y la: ‘,y);
readln;
end.
đây bạn