Годовая процентная доходность (Annual Percentage Yield, APY) — ставка дохода, вычисленная с учётом применения к депозитам или инвестиционным продуктам сложных процентов. Позволяет упростить сравнение доходности для годовых сложных процентов с различающимися интервалами начисления дохода (когда проценты начисляются несколько раз в году по годовой сложной процентной ставке). Годовая процентная доходность (APY) показывает такую процентную ставку доходности, как если бы годовой сложный процент начислялся один раз в год и давал бы такую же наращенную стоимость (будущая (приведенная) стоимость) как при начислении рассматриваемого годового сложного процента, который выплачивается несколько раз в год.
Var a,s1,s2:integer; begin read (a); if (a>=1000)and (a<=9999)then begin s1:=(a mod 10) + ((a mod 1000) div 100); s2:=(a div 1000) + ((a mod 100) div 10); if (s1>s2)then writeln ('Сумма цифр,стоящих на четных местах больше суммы цифр, стоящих на нечетных местах'); if (s1<s2)then writeln ('Сумма цифр,стоящих на нечетных местах больше суммы цифр, стоящих на четных местах'); if (s1=s2)then writeln ('Сумма цифр,стоящих на четных местах равна сумме цифр, стоящих на нечетных местах'); end else writeln ('Вы ввели не 4-ёхзначное число'); end.
begin
read (a);
if (a>=1000)and (a<=9999)then
begin
s1:=(a mod 10) + ((a mod 1000) div 100);
s2:=(a div 1000) + ((a mod 100) div 10);
if (s1>s2)then writeln ('Сумма цифр,стоящих на четных местах больше суммы цифр, стоящих на нечетных местах');
if (s1<s2)then writeln ('Сумма цифр,стоящих на нечетных местах больше суммы цифр, стоящих на четных местах');
if (s1=s2)then writeln ('Сумма цифр,стоящих на четных местах равна сумме цифр, стоящих на нечетных местах');
end
else writeln ('Вы ввели не 4-ёхзначное число');
end.