У тебя цикл работает, пока Y меньше 14, но внутри цикла ты Y не увеличиваешь, поэтому программа работает бесконечно и не выдаёт ответ.
Я добавил переменную i:integer (integer - чтобы работал mod(остаток от деления на число)), потому-что у нас чередуются знаки + и -. Также убрал зацикливание
program three;
var c,a,y,t,n:real;
i:integer;
begin
writeln('Введите с');
readln(c);
y:=3;
t:=0;
i:=0;
while (y<14) do begin
i:=i+1;
n:=sqr(y);
if i mod 2 = 1 then t:=t-((c-3)/n)
else t:=t+((c-3)/n);
y:=y+2;
end;
writeln(t);
end.
Алгоритм может быть, например, таким. Если нужно вывести нулевое число Фибоначчи, выведем 1, иначе будем считать. Сохраним в переменную номер текущего числа Фибоначчи (изначально 1) и значения текущего и предыдущего элементов (в начале 1 и 1), затем в цикле будем пересчитывать значения элементов, увеличивая номер текущего элемента. Когда номер элемента совпадёт с нужным, выведем ответ.
Реализация (python 3):
n = int(input())
if n == 0:
print(1)
else:
prev, curr = 1, 1
i = 1
while i < n:
curr, prev = prev + curr, curr
i += 1
print(curr)
Запустив программу, можно узнать, что f10 = 89, f25 = 121393, а f40 = <span>165580141</span>
Begin
var a:=ReadInteger('Введите двузначное число :');
var b:=a mod 10 ; var c:= a div 10;
Writeln('Разность =',c-b);
Writeln('Произведение =',c*b);
end.
End. если тут идет речь о программе.