Создайте следующюю таблицу. Рассчитайте минимальные и максимальные цены по соответствующим формулам

что имеем

B[o;n] и объявленный массив А[]

j=0; //переменная для текущей записи в А

for(i=0;i<n+1;i++)

{

//через булеан проверяем, является ли число простым

prost=ложь;

for (k=1;k<n/2;k++)

{

if (B[i]/k==0) then {prost=правда; break;} //если число делится на любое из чисел промежутка [1;себя/2] то оно не простое

}

if (prost==ложь) then {A[j]=B[i];} //если же простое, записываем в А

}

Доработай, прочитай как задается булеан, объяви переменные и массивы = пятерка.

На корректные и не тупые вопросы готов ответить

While a>0 do
begin
q:=a mod 10;
b:=b*10+q;
a:=a div 10;
end;

Этот фрагмент формирует число, обратное заданному числу а, это число в конце будет находится в ячейке b. Для примера рассмотрим короткое число. Пусть а=123
123>0 поэтому все команды будут выполняться:
q:=a mod 10; Остаток от деления  123 на 10: q=3 
b:=b*10+q;    Записываем ее в b   b=0*10+3=3 (Вот поэтому сначала b должен быть 0)
a:=a div 10;  Откидываем от а последний разряд: а=12 (берем целую часть деления 123 на 10)
идем в начало цикла
12>0 поэтому все команды будут выполняться:
q:=a mod 10; Остаток от деления  12 на 10: q=2
b:=b*10+q;    Записываем ее в b   b=3*10+2=32
a:=a div 10;  Откидываем от а последний разряд: а=1 (берем целую часть деления 12   на 10)
идем в начало цикла
1>0 поэтому все команды будут выполняться:
q:=a mod 10; Остаток от деления  1 на 10: q=1
b:=b*10+q;    Записываем ее в b   b=32*10+1=321
a:=a div 10;  Откидываем от а последний разряд: а=0 (берем целую часть деления 1   на 10)
идем в начало цикла. Условие 0>0 не выполняется, переходим к командам после цикла. А в b находится число, перевернутое по отношению к исходному.