Для произвольного значения аргументов вычислить значения функции ** PascalABC: f =...

Question

Для произвольного значения аргументов вычислить значения функции на PascalABC: f = {k+корень m, если m>0; {k/m+2, в противном случае

Answer 1

var k,m:single;

begin

 write('Введиет число K= '); readln(k);

 write('Введите число M= '); readln(m);

 if m>0 then writeln('f=(',k+sqrt(m):0:2,')')

 else writeln('f=(',k/m+2:0:2,')');

end.