1. Даны два числа a и b, причем a≤b. Сначала выведите количество целых чисел, лежащих в...

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.

Comments

Спасибо. Во втором ошибка, но я ее сам исправил и все заработало. Ошибка в том,что вместо F[2]:=2 нужно писать F[2]:=1.