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*()/();
Ответ:
ftp://FedAndr. edu/prog/about.pdf
Объяснение:
адресация в Интернете:
протокол :// сервер / каталог (каталоги) / файл
Тут две грамматических основы: Сентябрь наступил; год начался -> сложное
Ну и судя по всему оно истинное
Программа:
a = int(input("Введите 3-значное число:\n"))
a1 = a // 100
a2 = a // 10 % 10
a3 = a % 10
if a1>a2: a1,a2=a2,a1
if a2>a3: a2,a3=a3,a2
if a1>a2: a1,a2=a2,a1
b = a1*100+a2*10+a3
print (b)
Пример:
Введите 3-значное число:
951
159