Вклассическом паскале нет функции возведения в степень. если программисту на паскале все же потребуется возвести число a> 0 в степень n, то с какого выражения он может это сделать? 1) exp(ln(a)*n); 2) exp(ln(n)*a); 3) ln(exp(a)*n); 4) ln(exp(n)*a)

1вариант exp(ln(a)*n)

Var   f: text;   s: string;   max: string : = '';   begin   //в папке с программой должен быть файл "input.txt"     if fileexists('input.txt') then   begin     assign(f, 'input.txt');     reset(f);     while not eof(f) do     begin       readln(f, s);       if length(s) > length(max) then         max : = s;     end;     writeln('самая длинная строка в файле: ');     writeln(max);     close(f);   end   else     writeln('файл не найден'); end.

Program pr; var a : array [1..100, 1..100] of integer; i, max, min, j, n: integer; begin cls; read(n); min : = 100000; max : = -100000; for i : = 1 to n do      for j : = 1 to n do              begin                        read(a[i,j]);                         if (a[i,j] > max) then                              max : = a[i,j];                         if (a[i,j] < min) then                              min : = a[i,j];               end;         writeln ('сумма = ', min + max); writeln ('разность = ', max - min); writeln ('произведение = ', max * min); end.