Subpage under development, new version coming soon!
Topic closed!!!
Subject: »iba spam
ako zistim ci mam aktivnu alebo pasivnu ip adresu?
program p02;
uses crt;
procedure pocitaj;
var pod,a,b,pom,poc: longint;
begin
readln (a);
writeln;
pom:=1;
poc:=1;
pod:=1;
for b:=1 to a do begin
pom:=pod;
pod:=poc+pom;
poc:=pod;
writeln (pod);
writeln;
end;
end;
begin
clrscr;
pocitaj;
readln;
end.
end.
uses crt;
procedure pocitaj;
var pod,a,b,pom,poc: longint;
begin
readln (a);
writeln;
pom:=1;
poc:=1;
pod:=1;
for b:=1 to a do begin
pom:=pod;
pod:=poc+pom;
poc:=pod;
writeln (pod);
writeln;
end;
end;
begin
clrscr;
pocitaj;
readln;
end.
end.
pre mara:
cauko tak vyskusal som na 2 dni zobrat rapida na skusku prave stahujem film
na tejto stranke:http:www.pc-corner.biz
mas este nejake ine co sa daju vyuzit ? alebo nevies nahodou ci sa da film stahovat nie po castiach ako stahujem ale v celku ?
alebo ma to nejaky program ako dccko kde napises co by si chcel a ono ti to najde?
cauko tak vyskusal som na 2 dni zobrat rapida na skusku prave stahujem film
na tejto stranke:http:www.pc-corner.biz
mas este nejake ine co sa daju vyuzit ? alebo nevies nahodou ci sa da film stahovat nie po castiach ako stahujem ale v celku ?
alebo ma to nejaky program ako dccko kde napises co by si chcel a ono ti to najde?
viem kruh :stupen :dlzka
ak stupen = 0 [opakuj 24 [do :dlzka vp 15] ukonci]
opakuj 4 [kruh :stupen - 1 :dlzka / 3 ~
opakuj 6 [do :dlzka vp 15]]
koniec
ak stupen = 0 [opakuj 24 [do :dlzka vp 15] ukonci]
opakuj 4 [kruh :stupen - 1 :dlzka / 3 ~
opakuj 6 [do :dlzka vp 15]]
koniec
prvy je faktorial
a druhy je priklad na rekurziu v COMLOGU :)
a druhy je priklad na rekurziu v COMLOGU :)