Определить количество первых чисел Люка

@Vazzir · Регистрация: 13.10.2013

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

Задание такое: Числа Люка определяются так: первое число равно 1, второе равно 3, каждое
следующее равно сумме двух предыдущих. Составить программу, которая находит сумму
первых k чисел Люка (k – задается пользователем).
Определить количество первых чисел Люка, таких, что значение их суммы не
превышает диапазона типа integer (longint). Вывести в виде таблицы данное
значение суммы и три предыдущих значения суммы (с соответствующими количествами
чисел Люка).

Массивы юзать низя. Не могу вывести три предыдущих значения суммы,помогите,пожалуйста!

Вот мой раковый код:

Pascal

program sam3;
var a,b,c,k,s,i,z:integer;
begin
writeln('введите число:');
readln(k);
b:=3;
a:=1;
s:=4;
for i:=1 to (k-2) do
begin
c:=b+a;
a:=b;
b:=c;
s:=s+c;
end;
writeln('Сумма:',s);
b:=3;
a:=1;
s:=4;
z:=3;
while (s<1000) do
begin
c:=b+a;
a:=b;
b:=c;
s:=s+c;
z:=z+1;
end;
s:=s-c;
writeln('Количество чисел:',z,'Сумма;',s);
end.

@HACKBOOST · 14.10.2013, 09:14

я думаю что пропустил

Pascal

begin

причем не 1 раз

Добавлено через 49 секунд
и

Pascal

end.

пропускаеш,будь внимательнее

Добавлено через 1 минуту

Сообщение от Vazzir

c:=b+a;
a:=b;
b:=c;
s:=s+c;

это вообще как?где значения переменных?

@Puporev · 14.10.2013, 09:18

Pascal

function Luk(n:integer):integer;
var a1,a2,an,i:integer;
begin
if n=1 then an:=1
else if n=2 then an:=3
else
 begin
  a1:=1;
  a2:=3;
  for i:=3 to n do
   begin
    an:=a1+a2;
    a1:=a2;a2:=an;
   end;
 end;
Luk:=an;
end;
var k,i:integer;
    x:array[1..50] of integer;
begin
repeat
write('Введите натуральное число k=');
readln(k);
until k>0;
writeln('Первые ',k,' чисел Люка:');
for i:=1 to k do
 begin
  write(Luk(i),' ');
  if Luk(i)<0 then
   begin
    writeln;
    writeln('Числа начиная с номера ',i,' не входят в тип Integer');
    break
   end
  end; 
writeln;
i:=1;
k:=0;
while Luk(i)>0 do
 begin
  k:=k+1;
  x[k]:=Luk(i);
  i:=i+1;
 end;
writeln('Номер последнего числа, входящего в диапазон типа Integer=',k);
writeln('Последние 3 числа:');
for i:=k downto k-2 do
writeln('k=',i,'=',x[i]:10);
end.

Опции темы