- Magga: PLEX: multimédia az egész lakásban
- sziku69: Fűzzük össze a szavakat :)
- hcl: Kelj fel komám, ne aludjál
- gban: Ingyen kellene, de tegnapra
- Luck Dragon: Asszociációs játék. :)
- Geri Bátyó: Agglegénykonyha – bevezető - igényfelmérés
- Sgr_A: Számítógépeim aktualizálása cseréje
- Geri Bátyó: Agglegénykonyha 2 – Főzés: szabályok, vagy szabadság?
- Geri Bátyó: Agglegénykonyha 1 – rizseshús másképp
- Változások a Prohardveren
-
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!
- Mafia: The Old Country teszt
- Rengeteg pénzt kapott az USA-tól az Intel, de Trump kért cserébe valamit
- Bemutatkoztak a Raijintek "platinás" Ampere II tápjai
- ZIDOO médialejátszók
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Elalmásodik a Xiaomi: 100 wattos töltéssel érkezik a 16 Pro Max
- Milyen okostelefont vegyek?
- Goddess of Victory:Nikke
- OLED TV topic
- Milyen egeret válasszak?
- További aktív témák...
- Asus Zenbook Pro 15 i7 7700HQ/1050ti 4GB/16GB RAM/100% sRGB
- Xiaomi Redmi Note 14 Pro 5G 256GB, Kártyafüggetlen, 1 Év Garanciával
- Apple iPhone 13 256GB, Kártyafüggetlen, 1 Év Garanciával
- Crucial RAM 64GB Kit (2x32GB) DDR5 5600MHz INGYEN FOXPOST
- Kingston FURY Impact XMP 32GB 6400MT/s DDR5 CL38 INGYEN FOXPOST
- Dell USB-C, Thunderbolt 3, TB3, TB4 dokkolók (K20A) WD19TB/ WD19TBS/ WD22TB4, (K16A) TB16/ TB18DC
- HIBÁTLAN iPhone 13 mini 128GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS3319
- Bomba ár! HP EliteBook X360 830 G7 - i7-10610U I 16GB I 512SSD I 13,3" FHD Touch I Cam I W11 I Gari!
- GYÖNYÖRŰ iPhone 14 Pro 256GB Deep Purple -1 ÉV GARANCIA - Kártyafüggetlen, MS3352
- Telefon felváráslás!! Xiaomi 13T, Xiaomi 13T Pro, Xiaomi 14T, Xiaomi 14T Pro
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest