// 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: барон
Можно составить барон
Ось, відкрий та подивись картинку(сам робив)))))
А) 100(10) = 64 + 32 + 4 = 2^6 + 2^5 + 2^2 = 1100100(2)
Б) 187(10) = 2*64 + 7*8 + 3 = 2*8^2 + 7*8 + 3 = 273(8)
В) 2572(10) = 10*256 +0*16 + 12 = A0C(16)
Г) 1458(10) = 2*625 + 125+ 3*25 +5+3 = 2*5^4 + 5^3 + 3*5^2 + 5 + 3 = 21313(5)
Д) 53(10) = 27 + 2*9 + 2*3 + 2 = 3^3 + 2*3^2 + 2*3 + 2 = 1222(3)
<em>Паскаль</em>
var a,b,c,S,p:real;
label e;
begin
e: a:=0;b:=0;c:=0;read (a,b,c);
if ((a+b) <= c) or ((a+c) <= b) or ((b+c) <= a) then
begin
writeln ('Такого треугольника не существует, введите стороны заново');
goto e;
end;
if ((a+b) > c) or ((a+c) > b) or ((b+c) > a) then
begin
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln ('Площадь треугольника = ',S);
end;
end.