Выделите одну или несколько ячеек, которые необходимо использовать в качестве основы для заполнения других ячеек.
Например, если требуется задать последовательность 1, 2, 3, 4, 5..., введите в первые две ячейки значения 1 и 2. Если необходима последовательность 2, 4, 6, 8..., введите 2 и 4.
Если необходима последовательность 2, 2, 2, 2..., введите значение 2 только в первую ячейку.
Перетащите маркер заполнения Маркер заполнения.
При необходимости щелкните значок Параметры автозаполнения Изображение кнопки и выберите подходящий вариант.
var
A, B, c, x, p1, p2 :double;
const
PI = 3.1415926;
begin
readln(A, B, c, x);
if exp(c+power(x,0.2)) <> 0 then
p2 := 32.7*power(A,3)*x/exp(c+power(x,0.2))
else begin
writeln('Деление на 0 во второй дроби');
halt;
end;
if (abs(0.65 * A * PI * Power(x,3))<> 2*PI) then
p1 := tan(0.65 * A * PI * Power(x,3))
else begin
writeln('Аргумент для тангенса неверен');
halt;
end;
if (p1 < 0) then begin
writeln('Отрицательное подкоренное выражение');
halt;
end
else
if(p1 = 0) then begin
writeln('Деление на 0 в первой дроби');
halt;
end;
writeln('Результат: ', (B * cos(x)*cos(x))/sqrt(p1)+p2);
end.
Объяснение: