И(A1>-10) ⇒ Истина
<span>ИЛИ(A1<-15;И(A1>-10)) </span>⇒ Истина
Следовательно, в ячейке В1 будет А1
Тут не очень длинная строка получилась, её можно обработать и в таблице Excel.
Собственно, я составил таблицу для решения этой задачи (она прилагается к решению).
Самое большое преобразование там- это расстановка символов в обратном порядке.
Результат в таблице- после всех возможных замен символов BAB, в полученной строке осталось 24 буквы B.
Ответ:
var a,b,h,f,x:real;
begin
write('Введите a,b,h');
readln(a,b,h);
x:=a;
writeln('x':8,'F(x)':10);
while x<=b do
begin
f:=1/2*sin(x/4)+1;
writeln(x:8,f:10:3);
x:=x+h;
end
end.
Объяснение:
Это пример, там уже по своему как надо можешь поставить)
Свойство такое, что а), в), г) - арифметические прогрессии, б) - геометрическая.
1.
var i,n:integer; s:real;
begin
write('n = '); readln(n);
s:=0;
for i:=1 to n do s:=s+1/i;
writeln('s = ',s);
end.
Пример:
n = 5
s = 2.28333333333333
2.
var x,a,s:real; i:integer;
begin
write('x = '); readln(x);
a:=x; s:=x; i:=1;
while i<11 do
begin
i:=i+2;
a:=x*x*a;
s:=a/i;
end;
writeln('s = ',s);
end.
Результат:
x = 3
s = 16104.2727272727