Cod sursa(job #1187234)

Utilizator Paluka09Aldea Paul Paluka09 Data 17 mai 2014 22:03:13
Problema Algoritmul lui Euclid extins Scor 0
Compilator c Status done
Runda Arhiva educationala Marime 0.24 kb
Raporteaza aceasta sursa 
var a,b,c,x,y,i,t:integer;

begin
     readln (a);
     readln (b);
     readln (c);
     {read}

     for x:=-c to c do
         for y:=-c to c do
             if (a*x+b*y=c) then writeln (a,'*',x,'+',b,'* ',y,'=',c);
     readln;
end.