Var s: string; a, b: integer; begin readln(s); if s[1] = 'x' then begin a := StrToInt(s[3]); b := StrToInt(s[5]); if s[2] = '-' then a := -a; writeln(b - a); end else if s[3] = 'x' then begin a := StrToInt(s[1]); b := StrToInt(s[5]); if s[2] = '-' then begin a := -a; b := -b; end; writeln(b - a); end else if s[5] = 'x' then begin a := StrToInt(s[1]); b := StrToInt(s[3]); if s[2] = '-' then b := -b; writeln(a + b); end end.
учтите что никакой защиты от дурака или неверного ввода
1:Текстовый документ — это представленная на бумажном, электронном или ином материальном носителе информация в текстовой форме.
2:Ссилка — запись, которая идентифицирует документ или его часть.
3:Чтоби поставить ссилку к разделу текстового документа,виберите вкладку ссилки со строки меню.
4:оглавление, сноски,ссилки и списки литератури.
5)Предметний указатель содержит список терминов и теле,рассматриваемихв документе, с укащанием страниц, на которих они упоминаются.
6)Ссилка используется в документе для связи с другим документом, а также для связи одной части документа с другой частью.
7)Незнаю.
s: string;
a, b: integer;
begin
readln(s);
if s[1] = 'x' then begin
a := StrToInt(s[3]);
b := StrToInt(s[5]);
if s[2] = '-' then a := -a;
writeln(b - a);
end
else if s[3] = 'x' then begin
a := StrToInt(s[1]);
b := StrToInt(s[5]);
if s[2] = '-' then begin
a := -a;
b := -b;
end;
writeln(b - a);
end
else if s[5] = 'x' then begin
a := StrToInt(s[1]);
b := StrToInt(s[3]);
if s[2] = '-' then
b := -b;
writeln(a + b);
end
end.
учтите что никакой защиты от дурака или неверного ввода