Psst.. new poll here.
Psst.. new forums here.
Microsoft is blocking us again (TY IP Reputation!) so just use oauth login instead. :)
Paste
Pasted by 1111 ( 15 years ago )
var n,c:integer;
begin
assign(input,'input.txt'); reset(input);
assign(output, 'output.txt'); rewrite(output);
read(n);
if (n<=1) then c:=0 else
if (n mod 2 >0) then c:=n else c:=n div 2;
write(output,c);
end.
Revise this Paste