Question

1. даны два числа a и b, причем a≤b. сначала выведите количество целых чисел, лежащих в промежутке от a до b, потом с новой строки выведите все эти числа в порядке убывания. 2. числа фибоначчи вычисляются по следующей формуле: f_{1} =1, f_{2} =1, для i≥3 f_{i} =f_{i-2} +f_{i-1}. таким образом, последовательность чисел фибоначчи начинается так: 1, 1, 2, 3, 5, 8, 13, … напишите программу, которая вычислит и выведет первые 30 чисел фибоначчи. паскаль

Answer 1

1) Var a, b,i:integer ;

Begin

Write('a=') ;read(a) ;writeln;

Write('b=') ;read(b) ;writeln;

If b-a>0 then write(' Колво целых чисел ', b-a-1)

Else If b-a=0 then write (' Колво целых чисел ', 0)

Else write(' неверные данные') ;writeln;

For i:=b-1 downto a+1 do begin

Write(' ', i) ;

End;

End.

2)Var i:Integer ;

F:array [1..30]of Integer ;

Begin

F[1]:=1;f[2]:=2;

Write(' ', f[1],' ', f[2]);

For i:=3 to 30 do begin

F[i] :=f[i-1]+f[i-2];write(' ', f[i]) ;

End;

End.