Преобразовать арифметическое выражение в линейную форму записи, пригодную для ввода в компьютер. использовать - id758836420200912 от missvaleria2 12.09.2020 03:21

Question

Информатика: Преобразовать арифметическое выражение в линейную форму записи, пригодную для ввода в компьютер. использовать следующие обозначения операций, умножение деление, возведение в степень те х х3 34 - (y+5) 2 7xy — — (y+1)* — 8x(x+y2) выберите один ответ: ((4-(y+5)*x2)(1/3)/(7*x*y)-(y+1/2*8/(2.7+y)*x)/(8*x*x+y2) (4-(y+5)*x^2)(1/3)/7*x*y-(y+1)*2*8/(2.7+y)*x)(8*x*(x+ (4-(y+5)*x42) (1/3)/(7*x*y)-(y+1)2*8/(2.7+y) х/(8*x*(x+y2)) (4-(y+5)*x^2)/(1/3)/(7*x*y)-(y+1)/2*8/(27+y)*x)/(8*x*(x+y2)

missvaleria2 · Accepted Answer

// PascalABC.NET 3.2, сборка 1334 от 12.11.2016
begin
var a:=ReadlnString('->').ToWords;
a.Select((x,i)->(x,x.Length,i)).OrderByDescending(x->x[1]).
    ThenBy(x->x[0]).Select(x->x[0]).Println
end.

Пример
-> Карл у Клары украл кораллы Клара у Карла украла кларнет
кларнет кораллы украла Карла Клара Клары украл Карл у у

// PascalABC.NET 3.2, сборка 1334 от 12.11.2016
begin
var s1:='';
var s2:='';
var s:=ReadlnString('->');
var p:integer;
for var i:=1 to s.Length do begin
    p:=pos(s[i],s1);
    if p>0 then s[i]:=s2[p]
    end;
Writeln(s)
end.

Пример
-> abracadabra
deudfdgdeud

MOGZ ответил