В чём проблема выдаёт ошибку 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.
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.
More Questions From This User See All