<u>PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
Abs(ReadInteger('Введите число:')).IsEven.Println
end.
<u>Примеры</u>
Введите число: 12341
False
Введите число: -6345238
True
Это вообще-то не шифрование.
javascript:var a=['0','1','y','2','p','p','h','a','a','r','y','e','e','w','8','n'];a.reverse();for(var i=0;i<a.lenght;i+=2){a[i]^=a[i+1];a[i+1]^=a[i];a[i]^=a[i+1];}var s=a.join("");s=s.substring(a.length/2)+s.substring(0,a.length/2-1);alert(s);
ahpp2y10n8weeyr
var n:integer;
begin
write('n=');
read(n);
if (n>0) then write ('n>0');
if (n<0) then write ('n<0');
if (n=0) then write ('n=0');
end.
Решение в лоб для второй задачи.
<span>n = int(input())
m = int(input())
ticket = 0 <span># счетчик счастливых билетиков
</span>for i in range(int(n), int(m)+1)<span>:
</span> sum_check = 0 <span># проверочная сумма
</span> s = str(i) <span># создаем строку из нового билетика
</span> for j in range(len(s)): <span># проходим по всем числам
</span> if j%2 == 0: <span># если место числа четное
</span> sum_check += int(s[j]) <span># то прибавляем числа на этом месте
</span> else<span>:
</span> sum_check -= int(s[j]) <span># то отнимаем число на этом месте
</span> if sum_check == 0: <span># если контрольная сумма равна нулю, то билетик счастливый
</span> ticket +=<span>1
</span>print(ticket)</span>