var a: real;
begin
readln(a);
writeln((2 * a * a * a + 8)/(3 * a));
end.
Var
x, y: integer;
begin
//вводим x и y
readln(x);
readln(y);
//проверяем x
if (x >= 0) and (x<=20) then
writeln('X принадлежит')
else
writeln('X не принадлежит');
//проверяем y
if (y >= 0) and (y<=20) then
writeln('Y принадлежит')
else
writeln('Y не принадлежит');
<span>end.</span>
У нас раньше были такие ребусы )) Вроде ответ должен быть Принтер
<span>массив 5, 28, 8, 14, 9, 23, 6, 18, 51, 99
первый цикл
</span><span>i := 0; j := 9;
while A[i] < 10 do
i := i + 1;
считает i смотрим 5<10 да значит i:=0+1, 28 не меньше 10, 8<10 значит i:=1+1, 14 </span>не меньше 10, 9 <10 значит i:=2+1, 23 не меньше 10, 6 <10 значит i:=3+1, далее ничего не удовлетворяет условию значит i:=4
второй цикл
5, 28, 8, 14, 9, 23, 6, 18, 51, 99<span>
while A[j] > 10 do
j := j - 1;
t := A[i] - A[j];
смотрим 99 > 10 да значит j:=9-1, t=A[4] - A[8]=-42 и так далее ответ получается -176</span>