три объекта на рисунке по своему значению не подходят к 5 остальным. Составь два списка: 1.Объектов. имеющих одинаковое назначение2. Свойств, которые есть у каждого из этих объектов. на рисунке тетради в крупную клетку, мелкую клетку, широкую линейку,узкую линейку , косую линейку, и три карандаша-синий, белый, черный 1. Тетради имеют одинаковое предназначение - в них пишут. Карандаши имеют одинаковое предназначение - ими рисуют.2. Свойства тетрадей в том, что они имеют поверхность предназначенную и удобную для письма, а также разлинованы под определенные записи. Свойства карандашей в том, что они имеют цветную составляющую - гриф, который оставляет след соответствующего цвета.
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. Свойства тетрадей в том, что они имеют поверхность предназначенную и удобную для письма, а также разлинованы под определенные записи.
Свойства карандашей в том, что они имеют цветную составляющую - гриф, который оставляет след соответствующего цвета.
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.
учтите что никакой защиты от дурака или неверного ввода