Discussion @ 1243. Divorce of the Seven Dwarfs @ Timus Online Judge

The second AC program.Please look here!

Posted by Ural_Yin Tong 8 Mar 2003 18:48

program p1243;
var aa:string;
    a:array[1..100] of shortint;
    i,k:integer;
begin
     readln(aa);
     for i:=1 to length(aa) do a[i]:=ord(aa[i])-48;
     for i:=1 to length(aa) do
     begin
         k:=a[i] mod 7;
         a[i+1]:=a[i+1]+k*10;
     end;
     writeln(k);
end.

Re: The second AC program.Please look here!

Posted by Acid Pea 8 Mar 2003 18:48

єЗєЗ

Sure it was obvious... please stop copying AC solutions.

Posted by Locomotive 10 Mar 2003 18:12

Discussion of Problem 1243. Divorce of the Seven Dwarfs