- gban: Ingyen kellene, de tegnapra
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Magga: PLEX: multimédia az egész lakásban
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- sziku69: Szólánc.
- eBay-es kütyük kis pénzért
- Elektromos rásegítésű kerékpárok
- Rap, Hip-hop 90'
- droidic: Időutazás floppyval: A 486-os visszavág PCem-men
Hirdetés
-
LOGOUT
Új hozzászólás Aktív témák
-
vz12
tag
válasz
sztanozs #14001 üzenetére
- az "exit" mellett a "begin ... end" is hiányzott, mert az kell, ha több utasítás van a blokkban
- amúgy az "exit" nem igazán szép
- nem kellene kipróbálni, hogy működik-e, mielőtt kiadjuk a kezünkből?Én kipróbáltam, így működik:
program ermek_demo;
const n = 2;
type ermek_tipus = array [1..n] of integer;
const ermek:ermek_tipus = (1,2);
function f_kombok(ermek:ermek_tipus; osszeg,temp_index:integer):integer;
var i, tmp_kombok:integer;
begin
if (osszeg=0) then
tmp_kombok:=1
else
if (osszeg<0) then
tmp_kombok:=0
else begin
tmp_kombok:=0;
for i:=temp_index to n do
tmp_kombok:=tmp_kombok+f_kombok(ermek, osszeg-ermek[i], i);
end;
f_kombok:=tmp_kombok;
end;
begin
writeln(f_kombok(ermek,4,1));
end.
Új hozzászólás Aktív témák
● olvasd el a téma összefoglalót!
- Eladó Konfig I7 9700E 32GB DDR4 512GB SSD RTX2060 Super 8GB!
- 3db Tundra Tracker cserélhető rögzítőlappal + SW5 SteamVR Dongle + 3db nylon strap + Hordozótáska
- Music Hall a15.3 integrált erősítő Phono bemenettel
- Keresek főként szolgáltató függő Apple Iphone készülékeket
- Kalandvágyók figyelmébe! iMars Android car player - Android autós fejegység
- Apple iPhone 12 / 64GB / Gyári független / 12 Hó Garanciával / 100% akku
- iKing.Hu - Samsung Galaxy S25 Edge Használt, karcmentes állapotban 12 GB RAM / 512 GB tárhely
- GYÖNYÖRŰ iPhone SE 2022 128GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS2985
- BESZÁMÍTÁS! MSI MAG 325CQRXF QHD VA 240Hz 1ms monitor garanciával hibátlan működéssel
- 8 GB GeForce RTX 3070 Ti - garanciával
Állásajánlatok
Cég: FOTC
Város: Budapest