В чем ошибка в коде? Паскаль абс 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.
205
402
Ответы на вопрос:
Объяснение:
Заходишь в устройство, выбираешь подсветку. Так же Fn + стрелочка вверх
Популярно: Информатика
-
alinnnkaaa11.01.2022 03:27
-
Nikita135630.06.2023 06:35
-
svalevayulia1004.04.2020 04:49
-
Лёлик888107.02.2021 14:27
-
fma06042918.01.2022 15:14
-
дима095187181216.12.2022 19:13
-
DeM1234531.01.2023 00:27
-
ангелина12345654321602.09.2020 01:16
-
Кек1111111111828.06.2023 06:54
-
tanya59803.08.2021 13:10