Вопрос по информатике:

Ввести натуральное число N и вычислить сумму всех чисел Фибоначчи, меньших N. Предусмотрите защиту от ввода отрицательного числа N.

Ответ:

//PascalABC.NET 3.2 сборка 1318//Вариант по формуле БинеVar  n,fibn:real;  i:integer;beginreadln(n);if n<=0 then writeln('Не существует чисел Фиббоначи меньше 0')else  begin  i:=0;    while fibn<n do      begin        fibn:=(power((1+sqrt(5))/2,i)-power((1-sqrt(5))/2,i))/sqrt(5);        inc(i);      end;   writeln((power((1+sqrt(5))/2,i)-power((1-sqrt(5))/2,i))/sqrt(5)-1);     end; end.//В лобVar  sum,n,buf,fib0,fib1:integer;  function fibb(fib0,fib1:integer):integer;  begin    result:=fib0+fib1;  end;beginfib0:=0;fib1:=1;readln(n);if n<=0 then   writeln('Не существует чисел Фиббоначи меньше 0')else  begin    if fibb(fib0,fib1)>=n then sum:=0 else    begin      while fibb(fib0,fib1)<n do        begin         buf:=fib1;         fib1:=fibb(fib0,fib1);         fib0:=buf;        end;      sum:=fibb(fib1,fibb(fib0,fib1))-1;   end;   writeln(sum);  end;end.Пример ввода:12Пример вывода:20

Ответ:

varn, a1, a2, sum: longint;beginrepeatwrite ('Введите n: ');readln (n);until n>=0;a1:=1;while (a2<n) dobegininc (sum, a2);a2:=a2+a1;a1:=a2-a1;end;write ('Сумма всех чисел Фибоначчи, меньших n: ', sum);end.