У тебя цикл работает, пока 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.
3 мб
512×2=1024
1024×2=2048
1024+2048=3072
переводим в мб и получим 3 мб
3 Кбайта = 3 * 2^10 байта = 3 * 2^10 * 2^3 бита
k = 2^12
I = k*i, где I - <span>информационный о</span><span>бъемом, k - кол-во символов, i -отводимое количество бит на символ
i = I/k = 3*2^13/2^12 = 3*2 = 6;
Мощность алфавита N = 2^i, N = 2^6 = 64
Ответ: 64 символа
</span>
Процедура:
procedure dp(a,b: integer);
begin
writeln(a div b);
end;
функция:
function df(a,b: integer): integer;
begin
df:=a div b;
end;
программа с процедурой:
Program n1;
var x,y: integer;
procedure dp(a,b: integer);
begin
writeln(a div b);
end;
begin
readln(x,y);
dp(x,y);
end.
программа с функцией:
Program n1;
var x,y: integer;
function df(a,b: integer): integer;
begin
df:=a div b;
end;
begin
readln(x,y);
writeln(df(x,y));
end.
о Системный блок
- блок питания
- материнская плата
- видеокарта
- система охлаждения
- жёсткий диск
- центраальный процессор
о Монитор
о Клавиатура
о Мышь