Hola estimados!!!
Tengo que realizar un programa que resuelva ecuaciones diofánticas (eso lo logre), pero no me sale como hacer que me imprima el cartel de que no hay soluciones... Si lo coloco dentro del lazo for me dice en cada valor de i que no hay solución. Yo quiero que me lo diga una sola vez en el caso de que no exista ninguna solución. Muchas Gracias.
program diofantica; ▲│─
┌│║ ▓│
││║ ▓│
││║var a,b,c,x,i,y:integer; ▓│
││║ ▓│
││║begin ▓│
││║writeln; readln(a); ▓│
││║writeln; readln(b); ▓│
││║writeln; readln(c); ▓│
││║ ▓│
││║x:= c div a; ▓│
││║for i:=1 to x do ▓│
││║ begin ▓│
││║ y:=(c-a*i) div b; ▓│
││║ if (a*i+b*y=c) then writeln('(',i:2,',',y:2,')') ▓│
││║ else ▓│
││║ end; ▓│
││║writeln; writeln('**Fin**') ▓│
││║end.