Question

Паскаль старик беря в жены старуху обещал ей каждый год ловить по золотой рыбке что бы та выполнила три ее желания. страрухе вскоре надоело полчуть по 3 желание в год и она приказала мужу каждый третий год ловить на одну золотую рыбку больше чем в предыдущие через сколько лет совместной жизни у старухи исполнится 33 желания

Answer 1

program HelloWorld;

var x,i :integer;

begin

    x := 0; // количество желаний

    i := 0; // года совместной жизни

  while(x < 33) do

  begin

     i := i+1;

     if i mod 3 = 0 then

     begin

      x:= x + 2*3

     end

     else

     begin

      x:= x + 3

     end;

     write('Год: ');

     write(i);

     write(' кол-во желаний: ');

     write(x);

     writeln('');

  end;

end.

ответ: 9 лет