Сумма двух нижних чисел, умноженая на 3.
В третьем ответ - 102
Сделай лучшим, пож:)
<span>Действия выполняются в обратном порядке. Последнее действие было "из нечетных цифр вычитается,а к четным прибавляется 1".Из нечетных цифр вычли 1 и они стали четными (при вычитании единицы меняется четность), с четными все то же самое, только наоборот. Значит нужно ко всем четным цифрам прибавить 1, а от нечетных отнять 1, тогда получится исходная цифра.3216 -> 2307.Итак, знаем, что на предпоследнем шаге было число 2307. Идем еще на шаг назад. "цифры,занимающие четные разряды (нумерация разрядов ведется справа налево начиная с нуля) циклически сдвигаются вправо,а нечетные - влево на количество позиций, равных номеру разряда". Опять же, делаем наоборот. Цифры на четных разрядах сдвигаем влево, а нечетные - вправо. Количество позиций не меняется, только направление.2307 -> 5117Пароль почты Васи: 5117.Традиционно проверочка...Имеем 5117.Семь сдвигаем вправо на 0.7 -> 7.Один сдвигаем влево на 1.1 -> 0.Один сдвигаем вправо на 2.1 -> 3.Пять сдвигаем влево на 3.5 -> 2.Получаем 2307.От нечетных цифр отнимаем 1, а к четным прибавляем.Получаем 3216. Что и было дано изначально.</span>
var
s, s2 : String;
Check : Boolean;
i : Integer;
begin
Write('Введите первое слово: ');
ReadLn(s);
Write('Введите второе слово: ');
ReadLn(s2);
if Length(s) <> Length(s2) then
begin
Writeln('No');
exit;
end;
Check := True;
for i := 1 to Length(s) do
if pos(s[i], s2) <> 0 then
Delete(s, pos(s[i], s2), 1)
else Check := False;
If Check then
Writeln('Yes')
else
Writeln('No');
Readln;
end.
<span>Функция Chr возвращает символ с определенным кодом, а функция <span>Ord</span> - код определенного символа. Просто наберите в справке "char", и там будут все нужные функции.</span>