Закодируйте тексты в виде кода ascii текст apple

Var s: string; i: integer; begin write ('введите слово: '); read (s); for i: =1 to length(s) do write (ord(s[i]), ' '); end

Проанализируем работу цикла: i=2 mas(i) - mas(i-1) > m  ⇒  mas(2) - mas(1) > m  ⇒ 5-10 > 2  ⇒ -5 > 2  ⇒ нет i=3 mas(i) - mas(i-1) > m  ⇒  mas(3) - mas(2) > m  ⇒ 7-5 > 2  ⇒ 2 > 2  ⇒ нет i=4 mas(i) - mas(i-1) > m  ⇒  mas(4) - mas(3) > m  ⇒ 3-7 > 2  ⇒ -4 > 2  ⇒ нет i=5 mas(i) - mas(i-1) > m  ⇒  mas(5) - mas(4) > m  ⇒ 9-3 > 2  ⇒ 6 > 2  ⇒ да; k=1 i=6 mas(i) - mas(i-1) > m  ⇒  mas(6) - mas(5) > m  ⇒ 2-9 > 2  ⇒ -7 > 2  ⇒ нет i=7 mas(i) - mas(i-1) > m  ⇒  mas(7) - mas(6) > m  ⇒ 4-2 > 2  ⇒ 2 > 2  ⇒ нет ответ: k=1

Pascalabc.net 3.3.5, сборка 1644 от 23.03.2018 внимание! если программа не работает, обновите версию! begin   var n: =readinteger;   var (s,d,e): =(n div 100, (n div 10) mod 10, n mod 10);   writeln('cотни ',s,', десятки ',d,', единицы ',e);   writeln('сумма цифр ',s+d+e,', их произведение ',s*d*e);   writeln('справа налево: ',100*e+10*d+s);   writeln('перестановка сотен в конец: ',100*d+10*e+s) end. пример 328 cотни 3, десятки 2, единицы 8 сумма цифр 13, их произведение 48 справа налево: 823 перестановка сотен в конец: 283