1 см=576
получается 5184 точ *6912 точ
1 бит=1 точка
4479 кб-всего информационный объём
var
x,z:string;
i:integer;
ar:array['а'..'я'] of boolean;
begin
readln(x);
readln(z);
for i:=1 to Length(z) do
ar[z[i]]:=true;
for i:=Length(x) downto 1 do
if (ar[x[i]] = true) then delete(x,i-1,1);
writeln(x);
<span>end.
Не забудь отметить лучший ответ ;-)</span>
Нужно знать как задаётся эта заштрихованная область.
Например для окружности нужно что бы x^2+y^2<R где R радиус, x,y координаты точки.
В общем случае нужно что бы выполнялось неравенство при поставление в него координат заданных пользователем.
#Ruby
n = gets
a = gets # пластик
b = gets # стекло
c = gets # возврат
litrov = 0
if a < b-c
litrov = n/a
else
while (n >= a or n >= b)
if n >= b
n -= b-c
else
n -= a
end
litrov += 1
end
end
p litrov
Ответ А будет лишним, остальные варианты это пакет office от ms