|
|
spell the months correctly Im an idiot I wrote "Saturtay" instead Saturday Edited by author 10.04.2023 02:46 I think my program is correct but i have not accepted yet. why wrong answer #10.. please give me Test 10. I think there can be several correct answers, and not all of them are accepted. Is order of days important (Monday, Wednesday, Saturday == Saturday, Monday, Wednesday)? For 3rd test my program prints "Monday, Tuesday, Wednesday" which gives 14 days. Why I got WA#3? Thanks Try this test: Sunday December 24 17 17 Answer: 1 Monday What is 5th test? could anybody help me?? Some ideas, some tests... Monday December 24 17 17 Right answer is 1 Tuesday The idia of solution is simple. You mast calculate counts of each day of Week from 2 Sep to limit date-1. After then , you mast select days, acording they count. Complexity = 2^7 Try this: Monday September 2 1 1 The answer is Impossible wrong #6 Any tests please? Edited by author 20.04.2006 13:29 Monday September 9 7 20 The answer is: 7 Monday Tuesday Wednesday Thursday Friday Saturday Sunday and not Impossible! Huh, silly mistake! My power of 2 was 6 instead of 7! Edited by author 12.11.2007 17:24 Days: 'Monday', 'Tuesday', 'Wednesday', 'Thursday', 'Friday', 'Saturday', 'Sunday' Months: 'September', 'October', 'November', 'December' Hi! *********************************************************** Can U tell me How to print the week days? Capital letters must be or not? *********************************************************** And would U be so kind to give me some tests to find a mistake (or mistakes) in my program... Thanks a lot. Magistr. I'm use full search, but got WA on test 3. help me plz! {$APPTYPE CONSOLE} Var BeDa:integer; endDe:integer; Tren:Array[0..6]of byte; max,min:integer; function Da(s:string; x:integer):integer; var t:integer; begin if s='September' then t:=0; if s='October' then t:=30; if s='November' then t:=61; if s='December' then t:= 91; da:=t+x; end; Procedure Init; var i,e:integer; s,s1:string; begin readln(s); if s='Monday' then BeDa:=0; if s='Tuesday' then BeDa:=1; if s='Wednesday' then BeDa:=2; if s='Thursday' then BeDa:=3; if s='Friday' then BeDa:=4; if s='Saturday' then BeDa:=5; if s='Sunday' then BeDa:=6; readln(s); i:=pos(' ',s); s1:=copy(s,i+1,length(s)-i); delete(s,i,length(s)-i+1); val(s1,i,e); endde:=da(s,i); readln(min,max); end; procedure Print; var i:integer; c:integer; begin for i:=0 to 6 do if Tren[i]=1 then inc(c); writeln(c); if Tren[0]=1 then writeln('Monday'); if Tren[1]=1 then writeln('Tuesday'); if Tren[2]=1 then writeln('Wednesday'); if Tren[3]=1 then writeln('Thursday'); if Tren[4]=1 then writeln('Friday'); if Tren[5]=1 then writeln('Saturday'); if Tren[6]=1 then writeln('Sunday'); end; Procedure Solve; var i,j,c,u:integer; begin for i:=1 to 127 do begin c:=0; u:=i; for j:=0 to 6 do begin Tren[j]:= u mod 2; u:=u div 2; end; for j:= 1 to endde-2 do if Tren[(j+Beda) mod 7]=1 then inc(c); if (c<=max)and(c>=min) then begin print; exit; end; end; Writeln('Impossible'); end; begin init; Solve; end. |
|
|