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

185

419

Посмотреть ответы 2

Ответы на вопрос:

lsoft

Информатика

4,5(20 оценок)

Ошибку выдаёт вот здесь ((readln(s); )) из-за скобок. при readln(s); программа выполняеться без ошибок.суть ошибки в том, что вы заканчиваете строку скобкой, а не ; . возможно скобки были поставлены случайно.

brigr

Информатика

4,4(23 оценок)

мы живем в таком мире, в котором люди постоянно окружены информацией. все окружающие вас процессы, предметы, явления несут в себе информацию, но иногда получаемой вами информации по определенному вопросу бывает либо недостаточно, либо слишком много. так что же лучше, переизбыток или недостаток? я думаю, конечно же, переизбыток. человек обладает способностью анализировать, поэтому я считаю, что лучше получить информации чуть больше, чем надо и впоследствии переработать ее, чем чего то не понять и продолжать лишь догадываться. информация это всегда хорошо, человеку свойственно тянуться к новым знаниям, главное уметь из ее непрерывного потока взять максимум полезного для себя.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.