var
a, b: real;
n: integer;
function arif_mem(a, b: real; n: integer): real;
begin
if n = 1 then arif_mem := a;
if n > 1 then arif_mem := arif_mem(a, b, n - 1) + b;
end;
function arif_sum(a, b: real; n: integer): real;
begin
if n = 1 then arif_sum := a;
if n > 1 then arif_sum := arif_sum(a, b, n - 1) + arif_mem(a, b, n);
end;
begin
write('введите первый член прогрессии:');
readln(a);
write('введите разность прогрессии:');
readln(b);
write('введите номер члена прогрессии:');
readln(n);
writeln(n, '-й член прогрессии равен :', arif_mem(a, b, n):8:2);
writeln('сумма ', n, ' членов прогрессии равна :', arif_sum(a, b, n):8:2);
end.
Заявленная емкость неформатированного гибкого магнитного диска формата 3,5" составляет 1,44 Мбайт.Рассчитаем общую информационную емкость отформатированного гибкого диска:Количество секторов: N = 18 х 80 х 2 = 2880.Информационная емкость:512 байт х N = 1 474 560 байт = 1 440 Кбайт = 1,40625 Мбайт.Однако для записи данных доступно только 2847 секторов, то есть информационная емкость, доступная для записи данных, составляет:512 байт х 2847 = 1 457 664 байт = 1423,5 Кбайт= 1,39 Мбайт.
У тебя цикл работает, пока 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.
Java – это объектно-ориентированный язык программирования, разработанный Sun Microsystems в 1990 году. Это один из самых востребованных языков, стандарт для корпоративных программ, веб-платформ, игр и мобильных приложений, а также для операционной системы Android. Java спроектирован для работы на множестве программных платформ, это значит, что программа, написанная на Mac OS, также может быть запущена, например, в Windows