התגובות שלי בפורום
מוצגות 8 תגובות – 1 עד 8 (מתוך 8 סה״כ)
-
תגובות
-
כותרת: אין פתרון. הנה ההוכחה….
program questionforum;
uses
crt;
function sol(n, coins : integer) : boolean;
begin
sol:= false;
if coins = 9 then
if (n=1) or (n=3) or (n=5) then
begin
write(´ I found solution: ´, n);
sol:=true;
end;
if (coins<>9) and (n>0)then {we need more coins}
begin
if sol(n-5,coins +1 )
then begin write(´ ´, 5); sol:=true end
else
if sol(n-3, coins +1 )
then begin write(´ ´, 3); sol:=true end
else
if sol(n-1, coins +1 )
then begin write(´ ´, 1); sol:=true end;
end;
end;BEGIN {of main}
clrscr;
if sol(25,0) then writeln( ´
´);
END.זהוי תוכנית שרצה בפסקל ובודקת באופן רקורסיבי את כל האפשרויות…
מוצגות 8 תגובות – 1 עד 8 (מתוך 8 סה״כ)