Var s:string; c:char; i:integer;
begin
write('s = '); readln(s);
i:=1;
while (i+2<=length(s)) do
if(s[i]=s[i+1])and(s[i+1]=s[i+2])
then begin
c:=s[i];
while (i<=length(s))and(c=s[i]) do delete(s,i,1);
i:=1;
end
else i:=i+1;
writeln(s);
<span>end.</span>
В память компьютера в котором 5 Гбайт поместится 2500 книг по 2 Мбайт
Var s,a,b:integer;
begin
read(a,b);
s:=(a+b)*7;
write(s);
<span>end.</span>
При х=3 ((0>6)+-(-2>8))*(12>25)=(0+1)*0=0 ложь
при х=9 ((6>6)+-(1>8))*(36>25)=(0+1)*1=1 истина
при х=7 и х=2 вторая скобка дает 7*4>25 и 2*4>25 ложь, т.е. 0, при умножении дает тож 0,
ОТВЕТ: №2, при х=9