1. Даны два числа a и b, при этом ab. Сначала выведите
1. Даны два числа a и b, при этом ab. Поначалу выведите количество целых чисел, лежащих в промежутке от a до b, позже с новой строчки выведите все эти числа в порядке убывания.
2. Числа Фибоначчи рассчитываются по последующей формуле: F_1 =1, F_2 =1, для i3 F_i =F_i-2 +F_i-1. Таким образом, последовательность чисел Фибоначчи начинается так: 1, 1, 2, 3, 5, 8, 13, Напишите программу, которая вычислит и выведет 1-ые 30 чисел Фибоначчи.
Паскаль
1) Var a, b,i:integer ;
Begin
Write('a=') ;read(a) ;writeln;
Write('b=') ;read(b) ;writeln;
If b-agt;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.
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Математика.
Разные вопросы.
Литература.
Литература.
Разные вопросы.
Кыргыз тили.
Математика.
Разные вопросы.
Алгебра.