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

ufx I got AC,here is my program [2] // Problem 1243. Divorce of the Seven Dwarfs 9 Apr 2003 13:09

//I didn't use an array
program ex;
var ch:char;
     a:longint;
begin
    read(ch);
    a:=0;
    while (ch in ['0'..'9']) do begin
        a:=(a*10+(ord(ch)-48)) mod 7;
        read(ch);
    end;
    writeln(a);
end.

Saber Re: I got AC,here is my program // Problem 1243. Divorce of the Seven Dwarfs 9 Apr 2003 14:59

Please don send ur AC code for every user...
thanx
SABER

Serega Re: I got AC,here is my program // Problem 1243. Divorce of the Seven Dwarfs 29 May 2003 16:45

> //I didn't use an array
> program ex;
> var ch:char;
>      a:longint;
> begin
>     read(ch);
>     a:=0;
>     while (ch in ['0'..'9']) do begin
>         a:=(a*10+(ord(ch)-48)) mod 7;
>         read(ch);
>     end;
>     writeln(a);
> end.

Discussion of Problem 1243. Divorce of the Seven Dwarfs