Vytvorené: 29. 10. 2013 Tlačiť
program Kombinacne_cislo;
function Faktorial (cislo:integer):longint;
var
i:integer;
faktorialx:longint;
begin
faktorialx:=1;
for i:=cislo downto 2 do faktorialx:=faktorialx*i;
Faktorial:=faktorialx;
end;
var
n,k,x,kombicislo:integer;
begin
writeln('Pocitam kombinacne cislo n nad k.');
writeln('Zadajte n');
readln(n);
writeln('Zadajte k');
readln(k);
kombicislo:=Faktorial(n) div Faktorial(k) div Faktorial(n-k);
writeln; writeln('Kombinacne cislo = ',kombicislo);
readln;
end.
![]() |
· Simulácie z fyziky· O Slovensku po slovensky· Slovenské kroje· Kurz národopisu· Diela maliarov· Kontrolné otázky, Domáce úlohy, E-testy - Priemysel· Odborné obrázkové slovníky· Poradňa žiadaného učiteľa· Rýchlokurz Angličtiny. Rozprávky (v mp3)· PREHĽADY (PRIBUDLO, ČO JE NOVÉ?)Seriály:· História sveta (1÷6)· História Slovenska (1÷5)· História módy (1÷5).
Členstvo na portáli
Poznámka pre autora
Copyright © 2013-2024 Wesline, s.r.o. Všetky práva vyhradené. Mapa stránky ako tabuľka | Kurzy | Prehľady |