Выбираю строчка где F=1 и записываю через переменные сумму произведений соответствующих строк
если 0-пишу не х, если 1-то пишу х
c у так же
тогда не х * не у + не х * у = (не у + у) * не х = 1 * не х = не х
Var
s:string;
i,n,k:integer;
begin
Write('Введите выражение: '); Readln(s);
i:=Length(s);
while i>0 do begin
if s[i]=')' then begin
k:=0; Dec(i);
while (s[i]<>'(') and (i>0) do
begin Dec(i); Inc(k) end;
Delete(s,i+1,k)
end;
Dec(i)
end;
Writeln(s)
end.
<em><u>Тестовое решение:</u></em>
Введите выражение: 3*(a+b)/(a-b);
3*()/();
Зачем тебе интернет а бывает крутой
//PascalABC.NET 3.1 сборка 1200
begin
var d := ReadReal('d =');
var s := SeqGen(
ReadInteger('n ='),
ReadReal('a1 ='),
a -> a + d)
.Aggregate((s, x)-> s + x);
writeln(s);
end.