Hi.
I'm looking for your help. I tried to solve problem 10710, but still i have no idea. The range of number n is very big . I see that not only prime numbers are good candidates for Jimmy-number. I found also 341,561,645,1105,.. I can't find a good method to generate all this numbers. Please give ...
Search found 7 matches
- Tue Sep 07, 2004 9:32 am
- Forum: Volume 107 (10700-10799)
- Topic: 10710 - Chinese Shuffle
- Replies: 19
- Views: 6783
- Wed Apr 07, 2004 4:58 pm
- Forum: Volume 103 (10300-10399)
- Topic: 10398 - The Golden Pentagon
- Replies: 17
- Views: 5776
10398 Golden Pentagom
hello,
i have a problem with getting the picture of this problem .
it's possible for you to send me it .
thanks Martin
Przygoda
przygoda@jessie.lonet.gdynia.pl
i have a problem with getting the picture of this problem .
it's possible for you to send me it .
thanks Martin
Przygoda
przygoda@jessie.lonet.gdynia.pl
- Fri Mar 14, 2003 3:58 pm
- Forum: Volume 104 (10400-10499)
- Topic: 10403 - Escape from Tut's Tomb
- Replies: 8
- Views: 5489
- Sun Mar 09, 2003 12:56 am
- Forum: Volume 104 (10400-10499)
- Topic: 10472 - Fastest Vs Cheapest
- Replies: 17
- Views: 9422
- Fri Aug 09, 2002 12:36 pm
- Forum: Volume 3 (300-399)
- Topic: 382 - Perfection
- Replies: 95
- Views: 35374
382
Please help me !!!
What is wrong ???
:evil:
[pascal]
program glupii;
var
liczba,z,sumka,la,i,pom,u:longint;
begin
writeln('PERFECT OUTPUT');
while not eoln do begin
read(liczba);
if liczba=1 then begin
writeln(' ',1,' DEFICIENT');
continue;
end;
sumka:=0;
if liczba=0 then break ...
What is wrong ???
:evil:
[pascal]
program glupii;
var
liczba,z,sumka,la,i,pom,u:longint;
begin
writeln('PERFECT OUTPUT');
while not eoln do begin
read(liczba);
if liczba=1 then begin
writeln(' ',1,' DEFICIENT');
continue;
end;
sumka:=0;
if liczba=0 then break ...
- Fri Aug 09, 2002 12:33 pm
- Forum: Volume 1 (100-199)
- Topic: 118 - Mutant Flatworld Explorers
- Replies: 68
- Views: 20532
118 - Mutant Flatworld Explorers
[pascal] :oops:
Please help .
I have got WA .
Here is my code
program ogrod;
var
i,ilosc,pom,poz,x1,y1,x,y:longint;
z:char;
lost:boolean;
t:array[1..200,1..3] of byte;
begin
readln(x,y);
while not eof do begin
readln(x1,y1,z,z);
case z of
'N' : poz:=1;
'E' : poz:=2;
'S' : poz:=3 ...
Please help .
I have got WA .
Here is my code
program ogrod;
var
i,ilosc,pom,poz,x1,y1,x,y:longint;
z:char;
lost:boolean;
t:array[1..200,1..3] of byte;
begin
readln(x,y);
while not eof do begin
readln(x1,y1,z,z);
case z of
'N' : poz:=1;
'E' : poz:=2;
'S' : poz:=3 ...
- Fri Aug 09, 2002 12:31 pm
- Forum: Volume 1 (100-199)
- Topic: 116 - Unidirectional TSP
- Replies: 226
- Views: 65338
116 - Unidirectional TSP
Please help me
What is wrong with my code ???
[/pascal]
program od_nowaaaa;
var
t:array[1..10,1..110] of longint;
k:array[1..10,1..110,1..2] of longint;
i1,min,pom,n,m,i,j,a:longint;
wynik,posrednik:array[1..110] of longint;
procedure prepare;
begin
for i:=1 to n do
for j:=1 to m do ...
What is wrong with my code ???
[/pascal]
program od_nowaaaa;
var
t:array[1..10,1..110] of longint;
k:array[1..10,1..110,1..2] of longint;
i1,min,pom,n,m,i,j,a:longint;
wynik,posrednik:array[1..110] of longint;
procedure prepare;
begin
for i:=1 to n do
for j:=1 to m do ...