Question

Составьте программы на Паскале для решения задач № 6-9 из заданий к § 34. При этом отмените ограничения на количество операций в арифметическом выражении, сформулированные в условиях задач.

Answer 1

====================================
P.S. Не уверен насчёт наличия функции power(x: real; y: integer): real в Borland TB, посему вот, на всякий, мне времени не жалко, раз уж взялся х)

function power(x: real; y: integer): real;
var
  i: integer;
  d: real := 1;
begin
  for i := 1 to y do
    d := d * x;
  result := d;
end;

0f1188a84763ac889efe7d5231f9cf20.pas

5db4baa66549db5a017644a60fe59be3.pas

be9ff4f282dc29b3e4306c4a13e55cab.pas