|
|
вернуться в форумI got AC,here is my program Послано ufx 9 апр 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. Re: I got AC,here is my program Послано Saber 9 апр 2003 14:59 Please don send ur AC code for every user...
thanx
SABER Re: I got AC,here is my program Послано Serega 29 май 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. |
|
|
