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

Из  целых  чисел  такая  пара  только  одна  -  2  и  2. а если  программу  писать,  то  так var  a,  b:   integer begin for  a=1  to  100  do begin         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 

Если не ошибаюсь, то x и z являются типа byte. требовать от переменных этого типа извлечение корня неправильно. так как это по определению целые положительные числа, размером до 256. от переменной, из которой извлекают корень, требуется тип значения - действительное число. так что лучше сразу объявить эти две переменные типа double (похоже так в паскале).   в первом же случае лучше извлечь корень с операции sqrt. снова, если не ошибаюсь, операция возведения в степени в паскале довольно трудоемка что ли. она определяется через exp и ln. так что лучше не заморачиваться, а воспользоваться оператором  sqrt.

1) 1200 * 1200 dpi означает, что в квадрате размером 1 дюйм на 1 дюйм сканируется такое количество точек 2) в 1 дюйме = 2,54 см, значит в 10 см содержится 3,94 дюйма (10/2,54 = 3,94) 3) 3,94* 1200 =  4728 пикселей по ширине и по высоте экрана 4)  4728 *  4728 =  22353984 точек в цветном изображении 10 на 10 см 5)  22353984 * 24 =  536495616 бит - информационный объем изображения переведем в большие единицы измерения: 536495616 бит / 8 =  67061952 байт / 1024   =  65490,2 кбайт / 1024 = 64 мбайта ответ: полученный файл будет 64 мбайта.