У тебя цикл работает, пока 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.
//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
begin
var a := SeqWhile(1, i -> i + 1, i -> i < 20);
Println(a);
Println(a.Where(x -> x mod 3 = 0).Average);
Writeln();
for var i := ReadInteger('a =') to ReadInteger('b =') do
writeln(i, ' ', i * i, ' ', i * i * i);
end.
1 знак=8 бит
<span>8 разрядного двоичного кода, включая пробелы
</span>
тогда 8+8+8(пробел)+8+8+8+8+8+8+8+8= 88 бит
Program gt;
var a:array[1..1000]of integer;
n,i:integer;
begin
read(N);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
begin
write(a[i],' ');
if( i mod 4=0)then writeln;
end;
end.
var a : array[1..10] of integer; n, z:integer;
begin
readln(n);
for var i:=1 to n do
readln(a[i]);
for var i:=1 to n-1 do begin
z:=a[i];
a[i]:=a[i+1];
a[i+1]:=z;
end;
for var i:=1 to n do
writeln(a[i]);
<span>end.</span>