Имеем дело с арифметической прогрессией, где
а(1)=15
d=2
В N-й день улитка проползёт
a(N)= a(1)+d(N-1)=
=15+2(N-1)=13+2N
Через N дней улитка проползет в общей сложности
S(N)= a(1)+a(2)+..+a(N)
Сумма арифметической прогрессии равна
S(N)= ½(а(1)+a(N))*N=
=½(15+13+2N)*N=
=(14+N)*N
Через N дней
yлитка проползет
(14N+N²)см
Странно записано правило, в условии. Именно оно, по каким-то причинам выдает ошибка при компиляции. Однако, не исключаю возможности, что я где-то допустил ошибку сам, а правило в условии все же задано верно.
Я поменял правило, поэтому компиляция прошла успешна. А вообще, я даже задание смутно понял:D
Вот так попробуй
var
a: array[1..10] of integer;
x, i: integer;
l: boolean;
begin
write('Введите ряд чисел - ');
//заполняем массив
for i:=1 to 10 do
read(a[i]);
//вводим число, которое нужно проверить
write('Введите число - ');
readln(x);
//проверяем, есть ли число в массиве
//если есть, то l будет присвоено true
for i:=1 to 10 do
if a[i] = x thenl := true;
//проверяем,чему равна l
if l=true then
writeln('Число ',x,' есть в массиве.')
else
writeln('Числа ',x,' нет в массиве.');
<span>end.</span>