Question

помогите решить, пожалуйста!

Сообщество роботов живет по следующим законам: один раз в год они объединяются в полностью укомплектованные группы по 3 или 5 роботов (причем число групп из 3 роботов - максимально возможное). За год группа из 3 роботов собирает 5, а группа из 5 - 9 новых собратьев. Каждый робот живет 3 года после сборки. Известно начальное количество роботов (К>7), все они только что собраны. Определить, сколько роботов будет через N лет.​

Answer 1

Ответ:

Program robot;

Uses crt;

Var k,I,n,p:integer;

s,x,y:longint;

r:array[1..3] of longint;

begin

clrscr;

write(‘Начальное количество роботов k=’); readln(k);

write(‘Число лет n=’); readln(n);

r[1]:=k; r[2]:=0; r[3]:=0; s:=k;

for i:=1 to n do

begin

x:=s div 3;

p:=s mod 3;

if p=0 then y:=0 else

if p=1 then

begin

x:=x-3; y:=2;

end

else begin

x:=x-1; y:=1;

end;

r[3]:=r[2]; r[2]:=r[1];

r[1]:=5*x+9*y;

s:=r[1]+r[2]+r[3];

end;

writeln(‘s=’,s)

end.