Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  description
Language: PASCAL
Code:
program Relation;
var
  a, b, twos, threes, temp    : Integer;
begin
  readln(a);
  readln(b);
  twos := 1;
  threes := 1;
  
  temp := a;
  while temp mod 2 = 0 do
  begin
    temp := temp/2;
    twos := twos*2;
  end;
  
  temp := a;
  while temp mod 3 = 0 do
  begin
    temp := temp/3;
    threes := threes*3;
  end;
  
  writeln(
    (b mod (twos*threes) = 0) and
    (b mod (twos*2) <> 0) and
    (b mod (threes*3) <> 0)
  );
end.          
Comments: