Нет перегруженной подпрограммы с таким количеством параметров sqrt вот алгоритм program l; var a,b,c,p: real; begin writeln('введите значение a,b'); read(a,b); c: =sqrt(sqr(a)+sqr(b)); p: =a+b+c; writeln(sqrt(sqr(a),'+',sqr('=',c); writeln(a,'+',b,'+',c,'=',c); end. ошибка в writeln(sqrt(sqr(a),'+',sqr('=',c);
Объяснение:
В функцию sqrt Вы передаете квадрат a, затем строку '+', затем квадрат b, хотя функция sqrt принимает всего одно число.
Возможно, вы хотели вывести что-то типа этого:
writeln('sqrt(',sqr(a),'+',sqr(b),')=',c); // Выведет 'sqrt(144+25)=13', если a=12, b=5.