hình như ct bạn viết sai a

nhập n và khai báo thì bạn có thể làm được mà phải không, mk chỉ gợi ý câu lệnh thoi nhé:

for i:=1 to n do write(i,';');

chúc bạn học tốt

Odd one out.

A. how

B. is

C. what

D. how old

|x+2|=10

=> x+2=10 hoặc x+2=-10

Nếu x+2=10=>x=10-2=8

Nếu x+2=-10=>=-10-2=-12

Vậy x=8 hoặc x=-12

k thấy rõ bạn ơi

uses crt;

var s:string;

function kt(s:string):boolean;

var i,dem:byte;

begin

dem:=0;

for i:=2 to length(s)-1 do

if ((s[i-1]<s[i]) and (s[i]>s[i+1])) or ((s[i-1]>s[i]) and (s[i]<s[i+1])) then

dem:=dem+1;

if dem=length(s)-2 then kt:=true else kt:=false;

end;

begin

clrscr;

write('nhap so nguyen duong: '); readln(s);

if kt(s)=true then write('so vua nhap la so don dieu') else

write('so vua nhap khong phai so don dieu');

readln;

end.

chúc bạn học tốt