Предмет:
ИнформатикаАвтор:
torres69Автор:
neillesterАвтор:
hickmanАвтор:
cali64Автор:
erikaguilarАвтор:
auroraАвтор:
t-birdanjyАвтор:
simba21Автор:
sarahwhiteАвтор:
guyАвтор:
esparzabegin
SeqGen(ReadInteger, 1, 1, (i, j)-> i + j).Println
end.
И это - всё !Автор:
archie...А если интересует решение на классическом Паскале, предлагаю просто поддерживать текущее, предыдущее и пред-предыдущее значения в ряду, и в цикле обновлять ответ.
Обрати внимание! longint может хранить значения только до , поэтому конкретно в этой программе вывод будет достоверным только для N ≤ 46. Ты можешь сделать текущую, предыдущую и пред-предыдущую переменные типа int64, и тогда максимальное значение N возрастёт до 92. Для бОльших N тебе придётся писать длинное сложение.
Кодvar
i, n, pred, predpred, cur: longint;
begin
read(n);
if n = 1 then writeln(1)
else if n = 2 then writeln('1 1')
else write('1 1 ');
if n < 3 then exit;
pred := 1;
predpred := 1;
for i := 3 to n do
begin
cur := pred + predpred;
write(cur, ' ');
predpred := pred;
pred := cur;
end;
writeln;
end.
Автор:
adrienvelezДобавить свой ответ
Предмет:
ГеометрияАвтор:
sterling9wqlОтветов:
Смотреть
Предмет:
АлгебраАвтор:
madisynjckdОтветов:
Смотреть
Предмет:
ГеографияАвтор:
bernarda7mkjОтветов:
Смотреть