Вчём проблема выдаёт ошибку 7 строчка pascalabc program калькулятор_степеней; var x,n: integer; var c,r: real; var u,s,ns,ss: boolean; begin writeln('вычисление степеней'); ((readln(s); )) if ss=true then begin ns: =false; s: =false end; if ss=false then begin writeln('вычисление суммы'); readln(s); if s=true then ns: =false else begin writeln('вычисление разности'); readln(ns); end; end; if (s=false)and(ns=false)and(ss=true) then begin writeln('основание степени'); readln(c); writeln('показатель степени'); readln(n); u: =false; if (n< =0)and(c=0) then begin u: =true ; end; if (n> =1)and(u=false) then begin r: =c; x: =2; while x< =n do begin r: =r*c; x: =x+1; end; end; if (n=0)and(u=false) then r: =1; if (c=0)and(u=false) then r: =0; if (n< 0) then begin r: =1; x: =-1; while x> =n do begin r: =r/c; x: =x-1; end; end; if u=false then begin writeln('результат'); writeln(r); end; if u=true then writeln('не определено'); end; if (s=true)and(ns=false)and(ss=false) then begin writeln('введите слогаемые(через пробел)'); readln(r,c); r: =c+r; writeln('результат'); writeln(r); end; if (s=false)and(ns=true)and(ss=false) then begin writeln('введите уменьшаемое и вычитаемое(через пробел)'); readln(r,c); r: =r-c; writeln('результат'); writeln(r); end; end.

FSoxGy    1   04.09.2019 23:50    0