Написать программу в Паскале

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

Question

Информатика

Ростяна

2 января, 22:31

Написать программу в Паскале

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

+3

Ответы (1)

Знаете ответ на вопрос?

Надюся · Answer 1

Var n, f1, f2, fn, sum:integer;

begin

write ('n = ') ;

readln (n) ;

while n<=0 do

begin

writeln ('Введите n>0. n = ') ;

readln (n) ;

end;

f1:=1; f2:=1;

fn:=f1+f2;

while fn
begin

sum:=sum+fn;

fn:=f1+f2;

f1:=f2;

f2:=fn;

end;

writeln ('sum=', sum) ;

end.

Пример:

n = - 10

Введите n>0. n = 10000

sum=17710