Задача на паскали. Построить последовательность из чисел Фибоначчи до N-го элемента.
Этот параметр (кол-во элементов) задается с экрана. Реализовываем ее НЕРАЦИОНАЛЬНО!, БЕЗ ПРОЦЕДУР!
Последовательность нужно записать как:
fib0 = 1
fib1 = 1
fibn = fibn-1 + fibn-2
№1 1)2)
var a:array[1..5]of integer;
i:byte;
begin
for i:=1 to 5 do
readln(a[i]);
writeln();
for i:=1 to 5 do
if (a[i]>0) and (a[i]<10) then begin
writeln(a[i]);
end;
end.
Объяснение: