Вопрос по информатике:
Ввести натуральное число
N и вычислить сумму всех чисел Фибоначчи, меньших N. Предусмотрите защиту от
ввода отрицательного числа N.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 26.07.2015 14:24
- Информатика
- remove_red_eye 9105
- thumb_up 49
Ответы и объяснения 1
Var
f1, f2, max: integer;
s: longint;
begin
max := -1;
while max < 0 do
begin
writeln('введите то число до которого выводить числа');
readln(max);
if max < 0 then writeln('введено неверное число');
end;
s := 0;
f1 := 0;
f2 := 1;
while f2 < max do
begin
s := s + f2;
f2 := f2 + f1;
f1 := f2 - f1;
writeln(f2);
end;
writeln('S=', s);
end.
- 27.07.2015 14:00
- thumb_up 37
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.