Нужна помощь в решении задач на Паскале

[tatca]

Нужна помощь в решении задач на Паскале

1. Рассмотрим последовательность, образованную дробями: 1/1, 2/1, 3/2,..., в которой числитель (знаменатель) следующего члена последовательности получается сложением числителей (знаменателей) двух предыдущих членов. Числители двух первых дробей равны 1 и 2, знаменатели 1. Верно ли, что сумма n первых членов этой последовательности больше числа A?
2. Даны натуральные числа a и b, обозначающие соответственно числитель и знаменатель дроби. Сократить дробь.
3. Определить среднее арифметическое элементов одномерного массива с k1-го до k2-й.
4. Дан одномерный массив вещественных чисел. Вывести на экран новое состояние массива, в котором все элементы с нечетными номерами увеличить на 1, с четными - уменьшить на 1.
5. Дан массив целых чисел. Найти сумму элементов, кратных заданному числу.

 

[Vladimir_S]

1. Рассмотрим последовательность, образованную дробями: 1/1, 2/1, 3/2,..., в которой числитель (знаменатель) следующего члена последовательности получается сложением числителей (знаменателей) двух предыдущих членов. Числители двух первых дробей равны 1 и 2, знаменатели 1. Верно ли, что сумма n первых членов этой последовательности больше числа A?

VAR
 nom,denom:array[1..100] of LongInt;
 i,n:Byte;
 A,S:Real;
BEGIN
 nom[1]:=1;
 nom[2]:=2;
 denom[1]:=1;
 denom[2]:=1;
 Write('n (2<n<101)= ');
 ReadLn(n);
 Write('A= ');
 ReadLn(A);
 S:=3.0;
 For i:=3 to n do
  begin
   nom[i]:=nom[i-2]+nom[i-1];
   denom[i]:=denom[i-2]+denom[i-1];
   S:=S+nom[i]/denom[i];
  end;
 WriteLn(S>A);
 ReadLn
END.

2. Даны натуральные числа a и b, обозначающие соответственно числитель и знаменатель дроби. Сократить дробь.

VAR
 a,b,c,i:Word;
 bu:boolean;
BEGIN
 Write('a= ');
 ReadLn(a);
 Write('b= ');
 ReadLn(b);
 If a<b then c:=a else c:=b;
 Repeat
  bu:=true;
  i:=1;
  repeat
   inc(i);
   if ((a mod i)=0) and ((b mod i)=0) then
    begin
     bu:=false;
     a:=a div i;
     b:=b div i;
     c:=c div i;
    end;
  until i>c;
 Until bu;
 WriteLn('New a= ',a);
 WriteLn('New b= ',b);
 ReadLn;
END.

Остальные три задачки - это, извините, тупые школьные упражнения на массивы, и этим, с Вашего позволения, я заниматься не буду. Уж как-нибудь сами.

 

[tatca]

Спасибо!