Найти числа удовлетворяющие равенство Опции

[Василий_Решетняк]

Здравствуйте всем! У меня возникла проблема, нужно найти все натуральные числа А,В и С в интервале от 1 до 200, для которых будет исполняться равенство А*В=В+С.
Как его более рационально решить, подскажите пожалуйста.

[Василий_Решетняк]

Извините, уже сам додумался. Оказалось совсем легко. Вот код

var a,b,c:integer;
begin
 for a:=1 to 200 do begin
 for b:=1 to 200 do begin
 for c:=1 to 200 do begin
 if a*b=b+c then
 writeln('a=',a,'b=',b,'c=',c);
 end;
 end;
 end;
 readln;
end.