Как добавить счетчик для первых 5 членов последовательности, кратные 3

@BARS08 · Регистрация: 28.09.2013

Author24 — интернет-сервис помощи студентам

Последовательность [a][/n] строится так: [a][/1]=1, [a][/2]=3,…., [a][/n] =[a][/n-2] -[2a][/n-1] для каждого n>2. Найти первые 5 членов последовательности, кратные 3.

Pascal

var
i,a,a1,a2,b,a3:integer;
begin
a1:=1;
a2:=3;
i:=1;
b:=0;
while b<>3 do begin
a:=a1-2*a2;
a1:=a2;
a2:=a;
if (a mod 3 =0) then 
begin 
writeln(a);
b:=b+1;
end;
end;
i:=i+1;
end.

@Puporev · 22.12.2016, 19:28

Pascal

var a,a1,a2,b:integer;
begin
a1:=1;
a2:=3;
b:=0;
while b<5 do
 begin
  a:=a1-2*a2;
  if a mod 3=0 then
   begin
    writeln(a);
    b:=b+1;
   end;
  a1:=a2;
  a2:=a;
 end;
end.

	22.12.2016, 19:28