Question

Даны два числа, не равных нулю. Определить, имеют ли эти числа одинаковые знаки.

Answer 1

Ответ:

Free Pascal

Объяснение:

вариант такой: представим числа как строку и будем смотреть вхождение каждого символа во второе число(строку).

var

 a, b : string;

 i : integer;

begin

 a:='79123456';

 b:='0123579';

 for i:= 1 to length(a) do

   if Pos(a[i], b) > 0 then

     write(a[i])

end.