Задачи по Паскалю!

[profi]

Помогите с задачами. Сроки коротки и нужно решить.

Вычислить бесконечную сумму с заданной точностью e (e>0). Счи-
тать, что требуемая точность достигнута, если вычислена сумма
нескольких первых слагаемых и очередное слагаемое оказалось по
модулю меньше, чем e, - это и все последующие слагаемые можно уже
не учитывать. Вычислить:
~ 1
S ------- , где S - сумма, ~ - бесконечность.
i=1 i(i+1)

Последовательность x[1],x[2],... образована по закону
x[1]=0; x[2]=5/8; x[i]=x[i-1]/2+3/4x[i-2], i=3,4,...;
Получить x[1],x[2],...,x[20].

Даны целые числа р и q. Получить все делители числа q, взаимно
простые с p.

[Roof]

вот вторая задача совсем простая лови

var
 x: array [1..20] of real;
 i: integer;
begin
  x[1]:=0;
  x[2]:= 5/8;
  i:=1;
writeln('x[1]= ', x[1]:4:4);
writeln('x[2]= ',x[2]:4:4);

  for i := 3 to 20 do
    begin
      x[i]:= x[i-1]/2+3/4*x[i-2];
      writeln('x[',i,']= ', x[i]:4:4);
    end;
readln;
end.

как-то так...
а вот с первой - нифига непонятно нарисуй формулу в ворде или paint'e и выложи в нормальном виде, тогда порешаем.

[Black_Angel]

помогите пожалуста!!!!

написать програму для нахождения суммы положительных чисел, кратных 4 и меньше 100.

[maladoy]

Сообщение от Black_Angel

помогите пожалуста!!!!

написать програму для нахождения суммы положительных чисел, кратных 4 и меньше 100.

var
i:integer;
sum:integer;
begin
sum:=0;
for I := 1 to 100 do
if i mod 4 = 0 then
sum:=sum+i;
end.
как то так!!!! с выводом на экран разберешься!?????

[Black_Angel]

ой спс большое!!!!

[Black_Angel]

как то так!!!! с выводом на экран разберешься!????? я незнаю я в этом деле новенький, у нас до сесии надо сдать три задачи а у меня не одной нет, перворкурсник... если не успею сдать не допустят к екзамену...

[maladoy]

program summa;
uses crt;
var
i:integer;
sum:integer;
begin
clrscr;
sum:=0;
for I := 1 to 100 do
if i mod 4 = 0 then
sum:=sum+i;
writeln('сумма=', sum);
end.
проверяй должно вроде работать!!!

[maladoy]

правда я паскаль 8 лет как не юзал

[Impario]

Вообщето надо условие поставить с точностью эпсилон
const e:=0.001;
if sum>e then
begin
и так далее

[Black_Angel]

Вообщето надо условие поставить с точностью эпсилон
const e:=0.001;
if sum>e then
begin
и так далее

ето надо писать после sum:integer; ????