Question

kiểm tra xem các số trong phạm vi từ 1đến N có số nào bằng X hay không với X nhập từ bàn phím. 

em cần luôn ạ 

Answer 1

uses crt;

var i,n,x:integer;

kt:boolean;

begin

clrscr;

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

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

kt:=false;

for i:=1 to n do 

  if x=i then kt:=true;

if kt=true then writeln('Co')

else writeln('Khong');

readln;

end.

Answer 2

Program HOC24;

Var d,i,n,x: integer;

Begin

write('Nhap N :'); readln(n);

write('Nhap X : '); readln(x);

d:=0;

for i:=1 to n do if i = x then 

begin

write('Trong pham vi tu 1 den ',n,' co so bang ',x);

d:=d+1;

break;

end;

if d=0 then write('Khong co so nao bang ',x,' trong day tu 1 den ',n);

readln

end.