Ответ:
program abc;
var a:integer;
begin
writeLn('Введите год');
write('=> ');
readLn(a);
if (a mod 4 = 0) and ((a mod 1000 = 0) or (a mod 100 <> 0)) then writeLn('Год ',a,' - високосный') else writeLn('Год ',a,' - не високосный')
end.
Объяснение:
Память, занимаемая сообщением первоначально: 50*8 бит = 50 байт
Память, занимаемая сообщением после перекодировки:
50*16 бит = 50*2 байт = 100 байт
Количество информации увеличилось на 100-50 байт = 50 байт
A = int(input("b = "))
if a//100 == a%10: print("Число симметрично")
else: print ("Число не симметрично")
Пример:
<span>b = 525
Число симметрично</span>