// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
var x:=ReadlnString('Введите слово Х:');
var y:=ReadlnString('Введите слово Y:');
var Good:=True;
for var i:=1 to y.Length do begin
var p:=Pos(y[i],x);
if p>0 then Delete(x,p,1)
else begin Good:=False; Break end
end;
if Good then
Writeln('Можно составить ',y)
else
Writeln('Нельзя составить ',y)
end.
Тестовое решение:
Введите слово Х: образование
Введите слово Y: название
Нельзя составить название
Введите слово Х: образование
Введите слово Y: барон
Можно составить барон
1. Компьютерный вирус - это вредоносная программа, которая способна воспроизводить себя через компьютер или через компьютерные сети. Компьютер может заразиться вирусом через флешку, электронную почту или программы для обмена сообщениями.
2. Флешка, диск, интернет.
<span>
3. У</span><span>меньшение объема свободной оперативной памяти; замедление загрузки и работы компьютера; непонятные (без причин) изменения в файлах, а также изменения размеров и даты последней модификации файлов; ошибки при загрузке операционной системы; <span>непонятные системные сообщения, музыкальные и визуальные эффекты и т.д.
4. П</span></span><span>отеря программ, данных, стирание информации в системных файлах, выход из строя движущихся частей жесткого диска, уменьшение объёма памяти, зависание компьютера, и многое другое.
5. Не заходить на незнакомые сайты; регулярно проверять компьютер на наличие вирусов(использовать антивирус), не запускать незнакомые файлы.
6. Антивирус - это программа для обнаружения компьютерных вирусов. Виды антивирусов: сканеры, блокираторы, иммунизаторы.
</span>
Sub car()
Dim s As Double
For i = 1 To 12
s = s + 4
Next i
MsgBox ("Скорость автомобиля через 12 секунд равна " + CStr(s) + " км/ч")
End Sub<span>
</span>
Правильный ответ Б потому как 500кбайт это 4096000 бит, и если поделить выйедт 32 сек
При х=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