Установите соответствие [4] Конструкция выбора WHILE TRUE: команда_1 команда_2 ……………………. команда_n Цикл с параметром FOR перем. цикла in range(нач.зн, кон.зн, шаг): команда_1 команда_2 ……………………. команда_n Цикл с предусловием IF логическое выражение_1: команда_1 ELIF логическое выражение_2: команда_2 ELIF логическое выражение_3: команда_3 ELSE: команда_4 Бесконечный цикл WHILE условие: команда_1 команда_2 ……………………. команда_n

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.

Объяснение: