Паскаль. массивы. Опции

[aigulia]

Помогите написать программы на Паскале! Сама в этом не разбираюсь, по этому прошу вашей помощи! Заранее спасибо!!

1. Если уравнение ax2 + bx + c = 0 (a не равно 0) имеет вещественные корни, то логической переменной t присвоить значение true, а переменным x1 и x2 – сами корни, иначе же переменной t присвоить false, а значения переменных x1и x2 не менять.
2. Дано 50 вещественных чисел. Найти порядковый номер того из них, которое наиболее близко к какому-нибудь целому числу.
3. Дано натуральное k. Напечатать k-ю цифру последовательности 1234567891011121314…, в которой выписаны подряд все натуральные числа.
4.Даны целые числа x1, x2, …, x55. Вычислить величину
x1(x2+x3)(x4+x5+x6)(x7+x8+x9+x10)…( x46+x47+…+x55).

[TarasBer]

> Сама в этом не разбираюсь, по этому прошу вашей помощи!

Зря. Начали бы сами, помогли бы нормально. А так...

Специально напишу не на паскале, а на псевдокоде. Чтобы вам было, над чем подумать.
И правильность не проверял.

1.

Код

d := b^2-4ac; дискриминант
if d >= 0
  t := true;
  s := sqrt(d);
  x1 := (-b-s)/2a;
  x2 := (-b+s)/2a;
else
  t := false;
end if

2.

Код

for i from 0 upto 49
  ad := abs(M[i] - N); расстояния от текущего элемента массива до того числа
  if i = 0 or d > ad
    MinIndex := i;
    d := ad;
  end if;
end for;

3.

Код

N := 0;
L := 1;
M := 9;
while K > N     вычисление первой степени десятки, запись до которой содержит хотя бы K цифр
  ON := N;
  N := N + M * L;
  L := L + 1;
  M := M * 10;
end while;
RN := (K - ON - 1) div (L - 1) + M div 90;   вычисление числа, в запись которого попала K-я цифра
RD := L - 2 - (K - ON - 1) mod (L - 1);       порядковый номер цифры в числе
for i from 0 upto RD
  RN := RN div 10;
end for
Result := RN mod 10;

4.

Код

P := 1;
S := 0;
N := 1;
K := 2;
for i from 1 upto 55
  S := S + X[i];  временная сумма
  if i = N        номер элемента, в котором надо обнулить временную сумму
    P := P * S;   ответ
    S := 0;
    N := N + K;
    K := K + 1;
  end if;
end for