function fn(s:string):string;
var i:integer;
begin
i:=pos('минус',s);
while i>0 do
begin
delete(s,i,5);
insert('плюс',s,i);
i:=pos('минус',s);
end;
fn:=s;
end;
var b:string;
begin
readln(b);
write(fn(b));
end.
Пример:
минус + плюс - минус = 0
плюс + плюс - плюс = 0
Program First;
var
a, b, c, d, m, n: integer;
begin
a:= 5;
b:= 9;
c:=7;
d:=13;
m:= a*d;
n:=b*c;
writeln(m, n);
end.
Program n1;
var a: integer;
begin
readln(a);
writeln(abs(a)/2);
end.
If (x>=-5) and (x<5) then label1.caption
(Принадлежит') else Label1.caption ('Не
принадлежит');
Х=1 Принадлежит
1.
<span>ремонт - номер
320 - 23
Отбросили последнюю букву (цифру) и прочитали оставшееся справа налево
2.
слова - вол
1023 - 20
</span>Отбросили первую и последнюю буквы (цифры) и прочитали оставшееся справа налево
3.
акула - лук
2031 - 30
Отбросили первую и последнюю буквы (цифры) и прочитали оставшееся справа налево