[Помогите!] Помогите написать!!!

[Serek1]

Доброе время суток всем вам. Помогите написать пару простых решений. Сам в этом не разбираюсь. Надо сделать в Паскале.
1. Составить логическое выражение, значение которого равно True, если высказывание истинно, и False, — если ложно.
Сумма цифр четырехзначного натурального числа является однозначным числом.
2. Точно и четко сформулировать условие задачи, которая решается в данной программе:
Program Kr_2_3;
Var I, N : LongInt; S : Real;
Begin
Write('Введите натуральное число: '); ReadLn(N);
S := 0;
For I := 1 To N Do
If Odd(I) Then S := S + 1 / (Sqr(I) * I)
Else S := S - 1 / (Sqr(I) * I);
WriteLn('Ответ: ', S : 10 : 9)
End.
Задать натуральное число N <= 4. Определить, чему будет равно S для заданного N.
3. Вычислить произведение
[Ссылки могут видеть только зарегистрированные пользователи. ]
4. В данном линейном массиве действительных чисел найти количество элементов, которые меньше среднего арифметического всех элементов этого массива.
5. В данной строке определить количество цифр.

[abddn]

1.

write('Введите натурально 4-значное число: '); Read(a)

m := a div 1000;
z := (a div 100) mod 10;
q := (a mod 100) div 10;
f := a mod 10;

s := m + z + q + f; 
if s <= 9 then writeln('true') else writeln('false')

5.

c := 0;
 for i := 0 to length(s) do
       begin
         if (s[i] > '0') and ('s[i] < '9') then inc(c);
       end;
writeln(c);
readln;

4.

summ := 0
for i := 1 to n do //n - length(массив)
     begin
     summ := summ + массив[i];
    end;
srendee := summ / n;

k := 0;

for i := 1 to n do
begin 
if массив[i] < srendee then inc(k)
end;

writeln(k)

3. Если задается n, то:

p := 1;
  for i := 1 to n do
begin 
  p := p * ((-1)^i / (2^(i - 1));
end;

writeln(p)

[MembRupt]

Цитата: Сообщение от Serek1 2. Точно и четко сформулировать условие задачи, которая решается в данной программе: Program Kr_2_3; Var I, N : LongInt; S : Real; Begin Write('Введите натуральное число: '); ReadLn(N); S := 0; For I := 1 To N Do If Odd(I) Then S := S + 1 / (Sqr(I) * I) Else S := S - 1 / (Sqr(I) * I); WriteLn('Ответ: ', S : 10 : 9) End.

Вычисляет сумму ряда S = 1 - 1/(Sqr(2)*2) + 1 / (Sqr(3)*3)+...+ (-1)^(n+1)/(Sqr(n)*n) до n-го члена и выводит результат с десятью цифрами целой части и девятью цифрами дробной части

Цитата: Сообщение от abddn c := 0; for i := 0 to length(s) do begin if (s[i] > '0') and ('s[i] < '9') then inc(c); end; writeln(c); readln;

Если этот код и работает, то пропускает две цифры

Цитата: Сообщение от abddn p := 1; for i := 1 to n do begin p := p * ((-1)^i / (2^(i - 1)); end; writeln(p)

Оператор ^ используется для указателей

[abddn]

Цитата: Сообщение от MembRupt Если этот код и работает, то пропускает две цифры

>=, <= забыл

Цитата: Оператор ^ используется для указателей

не знаю, как правильно использовать exp

PS:

Цитата: if s[i] in ['0'..'9'] then inc(c);

- это точно сработает, если первый код нерабочий