fork download
copy 
  1.  
  2. function words(w1, w2: double; day: integer): integer;
  3. var
  4.   today: double;
  5. begin
  6.   today := (w1 + w2) / 2 + 2;
  7.   //
  8.   if (50 <= today) then 
  9.     words := day
  10.   else
  11.     words := words(w2, today, day + 1);
  12. end;
  13.  
  14. begin
  15.   writeLn('Учитсо дальше нету сил, Незнайко слился на ', words(1.0, 1.0, 3), ' день.');
  16. end.
  17.  
Success #stdin #stdout 0.01s 4112KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Учитсо дальше нету сил, Незнайко слился на 39 день.
https://ideone.com/rfRFn
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!