## Search found 8 matches

Fri Oct 10, 2003 8:50 pm
Forum: Volume 5 (500-599)
Topic: 543 - Goldbach's Conjecture
Replies: 109
Views: 23633

### 543 WA

Could help me? I don't know what's wrong with it? or give me some input? var tab:array[1..1000000]of longint; wyn:array[1..50000]of byte; n,a,nr,b:longint; czy:boolean; begin tab[1]:=2; nr:=2; fillchar(wyn,sizeof(wyn),0); for a:=2 to 1000000 do tab[a]:=maxlongint; for a:=3 to 1000000 do begin b:=1; ...
Mon Oct 06, 2003 7:38 pm
Forum: Volume 4 (400-499)
Topic: 414 - Machined Surfaces
Replies: 49
Views: 8825

I've got a problem with my program. Please help me These is source var c,il,suma,a,b,min:longint; wyn:array[1..13]of longint; s:string; czy:boolean; begin {assign(input,'414.in'); reset(input);} readln(il); while il<>0 do begin min:=maxlongint; czy:=false; for a:=1 to il do begin readln(s); c:=0; b:...
Sat Oct 04, 2003 6:02 pm
Forum: Volume 4 (400-499)
Topic: 488 - Triangle Wave
Replies: 270
Views: 29863

### 488-WA I know that's multiple input

I don' know what is wrong with it const tab:array[1..9] of string= ('1','22','333','4444','55555','666666','7777777','88888888','999999999'); var a,i,q,n,m,j:longint; begin while not eof do begin readln(n); readln(m); if n>0 then for i:=1 to m do begin for j:=1 to n do writeln(tab[j]); for j:=n-1 do...
Tue Sep 30, 2003 8:48 pm
Forum: Volume 6 (600-699)
Topic: 668 - Parliament
Replies: 12
Views: 4322
Tue Sep 30, 2003 8:43 pm
Forum: Volume 4 (400-499)
Topic: 495 - Fibonacci Freeze
Replies: 222
Views: 29737
Sorry, I just know what is wrong with it.
Mon Sep 29, 2003 6:08 pm
Forum: Volume 6 (600-699)
Topic: 668 - Parliament
Replies: 12
Views: 4322
Sorry there isn't
assign(output,'bla.out');
rewrite(output);
close(output);
but there is also WA
Mon Sep 29, 2003 4:46 pm
Forum: Volume 4 (400-499)
Topic: 495 - Fibonacci Freeze
Replies: 222
Views: 29737

### 495 WA

var a,w:longint; fib:array[0..5000]of string; Function dod(s,wyn:string):string; var w,a,pom1,pom2,d1,d2,reszta:longint; begin while length(s)<length(wyn) do s:='0'+s; while length(s)>length(wyn) do wyn:='0'+wyn; d1:=length(s); d2:=length(wyn); reszta:=0; for d1:=d1 downto 1 do begin pom1:=ord(wyn[d...
Mon Sep 29, 2003 3:21 pm
Forum: Volume 6 (600-699)
Topic: 668 - Parliament
Replies: 12
Views: 4322

### 668

I don't know what is wrong with it: var tab:array[1..50]of byte; a,b,n:longint; begin assign(output,'bla.out'); rewrite(output); while not eof do begin fillchar(tab,sizeof(tab),0); readln(n); a:=2; b:=1; while a<=n do begin tab :=a; n:=n-a; inc(a); inc(b); end; if a=n+1 then begin inc(tab[b-1]); dec...