Citat:
Napisati f-ju i program kojim se štampaju svi trocifreni brojevi koji su jednaki sumi faktorijela svojih cifara!
Code:
program xyz;
var i:integer;
function fakt(x:integer):integer;
var i,p:integer;
begin
p:=1;
if x=0 then fakt:=1
else
begin
for i:=x downto 1 do
p:=p*i;
fakt:=p
end
end;
begin
for i:=100 to 999 do
if fakt(i mod 10)+fakt(i div 10 mod 10)+fakt(i div 100)=i then writeln (i);
readln
end.
program xyz;
var i:integer;
function fakt(x:integer):integer;
var i,p:integer;
begin
p:=1;
if x=0 then fakt:=1
else
begin
for i:=x downto 1 do
p:=p*i;
fakt:=p
end
end;
begin
for i:=100 to 999 do
if fakt(i mod 10)+fakt(i div 10 mod 10)+fakt(i div 100)=i then writeln (i);
readln
end.
Normalno ga kompajlira i kad ga pokrenem izbaci mi grešku i exitcode = 201.
Gde sam pogrešio? I da li bi ta greška mogla da se primeti kad radimo pismeni, onako u svesci? Ipak ih ona neće pokretati, pa da joj izbaci ovu grešku...
Izvinjavam se svima koje sam razgnevio svojim pisanjima. Trudiću se da se popravim.