Perl'as

Jeigu programuojate ir norite ko nors paklausti ar pasidalinti patirtimi, darykite tai čia...
Post Reply
User avatar
Tadastopp
Posts: 220
Joined: 2005-11-18 16:22
Contact:

2008-02-06 18:14

Sveiki, noriu susikurt foruma,parsisiunciau si ta..viskas parasyta ant perlo.
TAi dabar pora klausimu. Kur gaut perl'o interpretatoriu? ir kaip sukrizmint ji su http serveriu?

User avatar
BackBrain
Posts: 1404
Joined: 2007-02-26 18:29
Location: Vilnius
Contact:

2008-02-06 18:38

jei ant Win tai "Active Perl"
MCP MCTS MCITP:SA/EA MCSA/MCSE:Security

PASSED.70-236/70-270/70-290/70-291/70-293/70-294/70-298/70-299/70-351/70-620/70-640/70-642/70-643/70-646/70-647
NEXT....70-432/70-450/70-659/70-662/70-680/70-685/70-686

User avatar
Tadastopp
Posts: 220
Joined: 2005-11-18 16:22
Contact:

2008-02-06 19:01

Dekui,siunciuos jau,bandysiu ziuret kas ir kaip.. ;)

User avatar
Gytis
Posts: 4
Joined: 2008-01-09 16:19
Location: Lietuva
Contact:

2008-03-02 16:55

Sweiki nenorejau naujos temas kurt, gal kas draugauja su paskaliu ir galetu issprest

Reikia rasti ir isspauzditi visus naturalius skaicius kuriu skaimenu kubu suma yra lygi patiems skaiciams pvz. skaicius yra

407 : 4 ^3+0^3+7^3=64 + 0 + 343=407

Dekui

gabrius
Posts: 3399
Joined: 2004-12-10 20:13
Location: Reutlingen
Contact:

2008-03-02 17:14

Čia amstrongo skaičiai.
For ciklas, viena procedūra, pora palyginimų. Nesunku. Mokyklos tinkle turiu išsisaugojęs programą.

User avatar
Gytis
Posts: 4
Joined: 2008-01-09 16:19
Location: Lietuva
Contact:

2008-03-02 17:16

mAksAz wrote:Čia amstrongo skaičiai.
For ciklas, viena procedūra, pora palyginimų. Nesunku. Mokyklos tinkle turiu išsisaugojęs programą.

o galetumet sprendima atsiust lbj dekingas buciau :)

gabrius
Posts: 3399
Joined: 2004-12-10 20:13
Location: Reutlingen
Contact:

2008-03-04 12:58

program Noname4;
var a,b,c,d,e,i:integer;
procedure kubas(a,b,c:integer; var l:integer);
begin
a:= a*a*a;
b:= b*b*b;
c:= c*c*c;
l:= a+b+c;
end;
begin
e:=0;
for i:=100 to 999 do
begin
a:= i div 100;
b:= i div 10 mod 10;
c:= i mod 10;
kubas(a,b,c,d);
if (d=i) and (i>e) then e:=i;
end;
writeln(e);
readln;
end.

Post Reply
  • Information
  • Who is online

    Users browsing this forum: No registered users and 1 guest