Требуется решить задачу Паскаль

[freebird0864]

Требуется решить задачу Паскаль

Привет форумчане! Помогите пожалуйста с этими задачами, а то паскаль трудноват для меня, нужно просто отпинать его))
вот задачи
1) Дана непустая последовательность натуральных чисел, за которой следует 0. Вычислите сумму положительных элементов последовательности, порядковые номера которых нечетны.
2) Исходное данное — натуральное число q, выражающее площадь. Напишите программу для нахождения всех таких прямоугольников, площадь которых равна q и стороны выражены натуральными числами.
3)Составьте программу получения всех совершенных чисел, меньших заданного числа п. Число называется совершенным, если равно сумме всех своих положительных делителей, кроме самого этого числа. Например, 28 — совершенно, так как 28 = 1 + 2 + 4 + 7 + 14.

[mod]Не паскаль пинать нужно, а учиться. На будущее, подбирайте более разумные названия для своих тем. Модератор [/mod]

 

[Vladimir_S]

1) Дана непустая последовательность натуральных чисел, за которой следует 0. Вычислите сумму положительных элементов последовательности, порядковые номера которых нечетны.

Var
 i,a,Sum:Integer;
Begin
 i:=0;
 Sum:=0;
 Repeat
  Inc(i);
  Write('a= ');
  Readln(a);
  If (a>0) and ((i mod 2)=1) then Inc(Sum,a);
 Until a=0;
 Writeln('Sum = ',Sum);
 Readln;
End.

2) Исходное данное — натуральное число q, выражающее площадь. Напишите программу для нахождения всех таких прямоугольников, площадь которых равна q и стороны выражены натуральными числами.

Var
  Q,a,b:Word;
Begin
 Write('Q= ');
 Readln(Q);
 For a:=1 to Trunc(Sqrt(Q)) do
  If (Q mod a)=0 then
   begin
    b:=Q div a;
    Writeln('a =',a:5,'      b =',b:5);
   end;
 Readln
End.

3)Составьте программу получения всех совершенных чисел, меньших заданного числа п. Число называется совершенным, если равно сумме всех своих положительных делителей, кроме самого этого числа. Например, 28 — совершенно, так как 28 = 1 + 2 + 4 + 7 + 14.

Var
 N,i,j,Sum:LongInt;
 D:Array[1..255] of LongInt;
 k:Byte;
Begin
 Write('N= ');
 Readln(N);
 For i:=2 to N do
  begin
   Sum:=0;
   k:=0;
   For j:=1 to (i div 2) do
    If (i mod j)=0 then
     begin
      Inc(k);
      D[k]:=j;
      Inc(Sum,j);
     end;
   If Sum=i then
    begin
     Write(i,'=');
     for j:=1 to k-1 do
      Write(D[j],'+');
     Writeln(D[k]);
    end;
  end;
 Writeln('Press "Enter" to quit');
 Readln
End.

 

[freebird0864]

спасибо огромное!