помогите решить, пожалуйста!
Сообщество роботов живет по следующим законам: один раз в год они объединяются в полностью укомплектованные группы по 3 или 5 роботов (причем число групп из 3 роботов - максимально возможное). За год группа из 3 роботов собирает 5, а группа из 5 - 9 новых собратьев. Каждый робот живет 3 года после сборки. Известно начальное количество роботов (К>7), все они только что собраны. Определить, сколько роботов будет через N лет.
Сообщество роботов живет по следующим законам: один раз в год они объединяются в полностью укомплектованные группы по 3 или 5 роботов (причем число групп из 3 роботов - максимально возможное). За год группа из 3 роботов собирает 5, а группа из 5 - 9 новых собратьев. Каждый робот живет 3 года после сборки. Известно начальное количество роботов (К>7), все они только что собраны. Определить, сколько роботов будет через N лет.
More Questions From This User See All
Answers & Comments
Ответ:
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.