Паскаль

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

Question

Информатика

Нинона

24 мая, 00:05

Паскаль

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

+1

Ответы (1)

Знаете ответ на вопрос?

Максима · 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 лет