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 чисел фибоначчи. паскаль
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.