У тебя цикл работает, пока 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.
Program student;
var
ocenka:byte;
begin
writeln('vvedite ocenku');
readln(ocenka);
case ocenka of
1: writeln('ochen ploho!');
2: writeln('ploho');
3: writeln('udovletvoritelno');
4: writeln('horosho');
5: writeln('otlichno');
end;
end.
Using System;
static int Main()
{<span> int n = 1;</span>
<span> for (int i = 1; i <= 5; i++)
</span><span> {
</span><span> for (int z = 1; z <= i; z++)</span><span>
{</span><span>
Console.Write(n);
</span><span>Console.Write("\t");
</span><span>}
</span><span>n++;
</span><span>Console.Write("\n");
</span><span>}</span>return 0;
<span>}</span>
Объяснение:
Вот таблица, горизонтальные не принимает;)