Вычислить значения функции у = (х + 2)(х - 1) на отрезке [-1; 2] с шагом 0,1 и построить график. Найти корни функции на график. Проверить методами вычислений по формулам и подбором параметра

Не знаю, причем тут "понятность" - это очень субъективное понятие, сильно зависящее от уровня подготовки читающего текст программы. "Точность" тоже под вопросом, поскольку большинство алгоритмов сами по себе не обладают некоей абсолютной точностью, а программы - суть запись алгоритма на некоем языке, доступном компилятору. Также, на мой взгляд, тут не перечислены некоторые иные важные свойства программы. Но в наибольшей степени на ответ, который тут может считаться "правильным", претендует 4) однозначность, дискретность, точность, понятность, результативность, массовость.

ответ: 4)

Var
   X,Y,K:integer;
   E,p:real;
Begin
Write('Сколько яблок в наличии: ');ReadLn(X);
Write('Сколько человек: ');ReadLn(Y);
Write('Сколько долларов за одно яблоко: ');ReadLn(E);
Write('Сколько рублей за один доллар: ');ReadLn(p);
if X mod 5 <> 0 then K:=X+5-(X mod 5)
else K:=X;
While K/Y<1.66 do K:=K+5;
WriteLn('Требуемое количество яблок: ',K);
WriteLn('Столько яблок придётся докупить: ',K-X);
WriteLn('Стоимость докупленных яблок: ',(K-X)*E*p:0:2,' руб.');
End.

Пример:

Сколько яблок в наличии: 1
Сколько человек: 3
Сколько долларов за одно яблоко: 50
Сколько рублей за один доллар: 0.05
Требуемое количество яблок: 5
Столько яблок придётся докупить: 4
Стоимость докупленных яблок: 10.00 руб.