В чем ошибка в коде? Паскаль абс var e,a,i,FACTc,x,k,s,n: real;
c:integer;
begin
write('Введите x');
readln(x);
a:=x;
c:=3;
i:=1;
FACTc:=1;
repeat
e:=power(x,c);
repeat
FACTc:=FACTc*i;
i:=i+1;
until i>c;
n:=e/FACTc ;
s:=k;
if (c=3) or (c=7) or (c=11) then k:=a-n+s
else k:=a+n+s;
c:=c+2;
until c>13;
writeln ('s= ', s)
end.

265

369

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

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

lenasavostyanova

Информатика

4,7(57 оценок)

В предпоследней строчки в конце нужно поставить ;

PaulinaWalters

Информатика

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

// pascalabc.net 3.0, сборка 1160 от 05.02.2016 procedure permutation(x: array of integer); begin var imin: =0; for var i: =1 to x.length-1 do if x[i]< x[imin] then imin: =i; var im: =(x.length div 2); swap(x[imin],x[im]) end; begin var a: =arrrandom(readinteger('n='),10,99); a.println; permutation(a); a.println; end. тестовое решение: n= 7 90 89 97 63 95 21 56 90 89 97 21 95 63 56

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

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

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

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

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

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

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

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

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

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