mercoledì, ottobre 22, 2008

Questo è il programmino in pascal relativo alla susi n° 867,presente anche nel CiC di sabato...

program Susi867;
uses crt;
const sx=12;sy=34;sz=56;sw=78;
begin clrscr;
if sx+sy-sz=sw then writeln(sx,'+',sy);
if sx+sy=sz-sw then writeln(sx,'+',sy);
if sx-sy+sz=sw then writeln(sy,'+',sz);
if sx-sy=sz+sw then writeln(sz,'+',sw);
if sx=sy-sz+sw then writeln(sz,'+',sw);
if sx=sy+sz-sw then writeln(sy,'+',sz);
end.

Nessun commento: