Поделитесь своими знаниями, ответьте на вопрос:
дам всё что есть. Числа 42, 88 и 156 с волшебного "Чёрного ящика" превратились в 6, 16 и 12. Запишите алгоритм превращения. Числа 42, 87 и 156 с волшебного "Чёрного ящика" превратились в 14, 29 и 52. Запишите алгоритм превращения. Числа 16, 28 и 112 с волшебного "Чёрного ящика" превратились в 33, 57 и 225. Запишите алгоритм превращения. Числа 42, 88 и 156 с волшебного "Чёрного ящика" превратились в 22, 45 и 79. Запишите алгоритм превращения. Числа 42, 88 и 156 с волшебного "Чёрного ящика" превратились в 8, 64 и 30. Запишите алгоритм превращения. Числа 15, 23 и 44 с волшебного "Чёрного ящика" превратились в 22, 30 и 51. Запишите алгоритм превращения. Числа 15, 168, 438 и 2567 с волшебного "Чёрного ящика" превратились в 15, 1, 3 и 57. Запишите алгоритм превращения. Числа 29, 168, 438 и 2567 с волшебного "Чёрного ящика" превратились в 2, 68, 48 и 26. Запишите алгоритм превращения. Числа 7, 101 и 25 с волшебного "Чёрного ящика" превратились в 27, 403 и 99. Запишите алгоритм превращения Числа 15, 159, 468 и 2567 с волшебного "Чёрного ящика" превратились в 51, 951, 864 и 7652. Запишите алгоритм превращения.
while { не конец последовательности (не известно от куда аффтар получает слова ) } do
begin
Slovo := { Получаем очередное слово последовательности };
if Length(Slovo) <= Length(Prime) then
begin
CopyPrime := Prime;
N := 1;
while (N <= Length(Slovo)) and (Pos(Slovo[N], CopyPrime) > 0 do
begin
Delete(CopyPrime, Pos(Slovo[N], CopyPrime), 1);
Inc(N);
end;
if N > Length(Slovo) then
{ Slovo можно получить из первого слова }
else
{ нельзя получить Slovo из первого слова }
end;
end;