Пример программы на языке Паскаль для вычисления значения функции z: 1

program funkcija;var a, b, c, m, n, k, z: real;function r(x, y, z: real): real;begin  r:=sqrt(x*x+y*y+z*z)end;begin  while true do  begin    write('a b c m n k > ');    readln(a, b, c, m, n, k);    if ((m=0) and (n=0) and (k=0)) then writeln('Ноль в знаменателе!')    else begin      z:=r(a, b, c)/r(m, n, k);      writeln(z: 0:15)    end  endend.

Также на сайте kampus.ai представлено решение задачи о составлении программы на языке Паскаль для вычисления функции z(x, y). 2