OJ Board

Hello, pavelph. One more bug found :lol:
Your prog outputs '1e+ is legal.'
I suggest you following changes:
[pascal]
...
if (s[1]='-') or (s[1]='+') then delete(s, 1, 1);
if s='' then f:=false else
begin
f:=true;
for n:=1 to length(s) do if not ((s[n]>='0') and (s[n]<='9')) then f:=false;
end ...

Try to replace line
[pascal]
if (s[1]='e') or (s[1]='E') then delete(s, 1, 1); f:=true;
[/pascal]
with following:
[pascal]
if (s[1]='e') or (s[1]='E') then begin delete(s, 1, 1); f:=true; end
else begin writeln(i); continue; end;
[/pascal]

Hello! I solved this problem. So maybe I can help you, but I need to see your source. Your output seems to be correct.

Hello. I don't understand one thing.
I've posted Problem 348 in Pascal and C versions. For Pascal ver. reply is Wrong Answer and for C ver. is Accepted :o
Is this due to bugs in Free Pascal or have I made some mistakes?
[pascal]
var
t:integer;
q:longint;
n,i,j,k,l:byte;
p:array[0..10] of ...

Hi, can somebody give me test data for this problem, please.
I don't know why my code produces WA. Thank you.
[pascal]
var
n,m,k,i,j,sum,bestsum:integer;
c:array[1..22] of integer;
r:array[0..6] of integer;
a,b,x:array[1..22] of byte;
begin
while True do
begin
read(n,m,k);
if (n=0)and(m=0 ...