Если вашу программу исправить, это так будет выглядеть: var a,b,c,p: real; begin writeln('введите размеры треугольника a,b,c'); read(a,b,c); p: =a+b+c; if (a=b) and (a=c)then begin writeln('треугольник равносторонний'); writeln('периметр треугольника',p); end else writeln ('треугольник не равносторонний'); end. а если написать самостоятельно, я бы сделал так: var a,b,c: real; begin write('введите размеры треугольника a,b,c: '); read(a,b,c); if (a=b) and (a=c) then writeln('треугольник равносторонний с периметром ',3*a) else writeln ('треугольник не равносторонний') end.
Сергеевич1386
08.01.2022
Вызов g(5)+f(5) вход g(5), вызов f(4)+2g(4) вход f(4), вызов 2f(3)-g(3) вход f(3), вызов 2f(2)-g(2) вход f(2), вызов 2f(1)-g(1) вход f(1), результат 1 вход g(1), результат 1 вход g(2), вызов f(1)+2g(1) вход f(1), результат 1 вход g(1), результат 1 вход g(3), вызов f(2)+2g(2) вход f(2), вызов 2f(1)-g(1) вход f(1), результат 1 вход g(1), результат 1 вход g(2), вызов f(1)+2g(1) вход f(1), результат 1 вход g(1), результат 1 вход g(4), вызов f(3)+2g(3) вход f(3), вызов 2f(2)-g(2) вход f(2), вызов 2f(1)-g(1) вход f(1), результат 1 вход g(1), результат 1 вход g(2), вызов f(1)+2g(1) вход f(1), результат 1 вход g(1), результат 1 вход g(3), вызов f(2)+2g(2) вход f(2), вызов 2f(1)-g(1) вход f(1), результат 1 вход g(1), результат 1 вход g(2), вызов f(1)+2g(1) вход f(1), результат 1 вход g(1), результат 1 вход f(5), вызов 2f(4)-g(4) вход f(4), вызов 2f(3)-g(3) вход f(3), вызов 2f(2)-g(2) вход f(2), вызов 2f(1)-g(1) вход f(1), результат 1 вход g(1), результат 1 вход g(2), вызов f(1)+2g(1) вход f(1), результат 1 вход g(1), результат 1 вход g(3), вызов f(2)+2g(2) вход f(2), вызов 2f(1)-g(1) вход f(1), результат 1 вход g(1), результат 1 вход g(2), вызов f(1)+2g(1) вход f(1), результат 1 вход g(1), результат 1 вход g(4), вызов f(3)+2g(3) вход f(3), вызов 2f(2)-g(2) вход f(2), вызов 2f(1)-g(1) вход f(1), результат 1 вход g(1), результат 1 вход g(2), вызов f(1)+2g(1) вход f(1), результат 1 вход g(1), результат 1 вход g(3), вызов f(2)+2g(2) вход f(2), вызов 2f(1)-g(1) вход f(1), результат 1 вход g(1), результат 1 вход g(2), вызов f(1)+2g(1) вход f(1), результат 1 вход g(1), результат 1 -14