//PascalABC.Net 3.2 begin var x:=readinteger ('Введите x: '); var sum:=0; repeat sum+=x mod 10; x:=x div 10; until x=0; writeln ('Сумма цифр: ', sum); writeln ('Сумма заканчивается на 3: ', (sum mod 10)=3); writeln ('Сумма четная - ', sum.Iseven); end.
<span> новый международный стандарт Unicode, который отводит два байта, и поэтому с его помощью можно закодировать не 256, а 65536 различных символов соотвественно это 4 </span>