fork download
copy 
  1. function lie(len: double; day: integer): integer;
  2. begin
  3.   if (odd(day)) then
  4.     len := len + len / 20;
  5.   //
  6.   if (len < 45) then
  7.     lie := lie(len, day + 1)
  8.   else
  9.     lie := day;
  10. end;
  11.  
  12. begin
  13.   writeLn('Это случиццо на ', lie(10, 0), ' день.');
  14. end.
Success #stdin #stdout 0.01s 4112KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Это случиццо на 61 день.
https://ideone.com/oKLue
language:
Pascal (gpc 20070904)
created:
13 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!