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>
Фотоаппаратом или же телефоном, так же можно планшетом, вебкамерой, видео-регистратором, и ещё что-то но я не помню как называется.
1 раз выполнится. Он проверяет 5<8? Да! Тогда 5+4=9. Далее 5<9? Нет! Выходим из цикла
Изображение: 1024х512
Память: 256Кбайт
1) 256Кбайт * 1024 = 256*1024 байт
2) 1024*512 / 256*1024 = 512 / 256 = 2
3) т.е. 1 байт должен хранить информацию о 2-ух пискелях. т.к. 1Байт = 8 бит, то 8Бит / 2 = 4 бит (4 бита = 1 пиксель)
4) 2^4 = 16 цветов