среди чисел от 1 до 100.Найдите все пары чисел для которых их сумма равняется произведению.
Pascal

Из целых чисел такая пара только одна - 2 и 2.А если программу писать, то такvar a, b: integerBEGINfor a=1 to 100 dobegin    for b=1 to 100 do    begin        if a+b=a*b then write (a, b);    end;end;END. Если можно брать нецелые числа, то для любого х второе число равно x/(x-1)Например, 3 и 3/2. 3 + 3/2 = 3*3/2 = 9/2