fork download
copy 
  1. var n,i,tong: integer;
  2. begin
  3.    readln(n);
  4.    tong:=0;
  5.    if (n mod 5 = 0) then
  6.       begin
  7.          tong:=tong+(n div 5);
  8.          writeln(tong);
  9.       end
  10.    else 
  11.       begin
  12.          tong:=tong+(((n mod 5) div 3) + 1);
  13.          writeln(tong);
  14.       end;
  15. end.
Success #stdin #stdout 0s 5272KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
0
https://ideone.com/fr7hzE
language:
Pascal (fpc 3.0.4)
created:
1 day 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!