Free pascalban hogy olvassunk be 2 szamot segedvaltozo nelkul? Szövegben elég lesz a válasz.

Hogy-hogy segédváltozó nélkül?

Segédváltozót cserénél szoktak használni (két szám felcserélése), olvasni simán lehet...

var

szam,szam2:word;

begin

readln(szam);

readln(szam2);

end.

Ha másra gondoltál, pontosítsd mit szeretnél.

Ha két szám beolvasásáról és értékeik megcseréléséről van szó - ha jól olvasom a kérdést - akkor itt két példa.

Ezek a megoldások akkor nem működnek, ha a két szőám értéke azonos, mivel a XOR ekkor nullát ad vissza.

program X_felcserel;

uses crt;

var

szam1,szam2:longint;

begin

readln(szam1);

readln(szam2);

szam1:=szam1 xor szam2;

szam2:=szam1 xor szam2;

szam1:=szam1 xor szam2;

writeln(szam1);

writeln(szam2);

readln;

end.

program osszead_kivon_megcserel;

var

szam1,szam2:longint;

begin

readln(szam1);

readln(szam2);

szam1:=szam1+szam2;

szam2:=szam1-szam2;

szam1:=szam1-szam2;

writeln(szam1);

writeln(szam2);

readln;

end.