fork(1) download
copy 
  1. const fi = '';
  2.       fo = '';
  3. var n, i: longint;
  4.  
  5. procedure Stop;
  6. begin
  7.  close(input); close(output);
  8.  halt;
  9. end;
  10.  
  11. begin
  12.  assign(input, fi); reset(input);
  13.  assign(output, fo); rewrite(output);
  14.  
  15.  readln(n);
  16.  for i:=n div 5 downto 0 do
  17.   if (n-5*i) mod 3 = 0 then
  18.    begin
  19.     writeln(i + (n-5*i) div 3);
  20.     Stop;
  21.    end;
  22.  
  23.  writeln(-1);
  24.  
  25.  close(input); close(output);
  26. end.
  27.  
Success #stdin #stdout 0s 232KB
comments (?)
stdin
copy 
11
stdout
copy 
3
https://ideone.com/Z2HnsM
P151SUMB - Đong Gạo
language:
Pascal (fpc 3.0.4)
created:
8 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!