var a:integer;
begin
readln (a);
if (a div 10 + a mod 10) mod 6 = 0 then writeln('Сумма цифр числа кратна 6')
else writeln ('Сумма цифр числа не кратна 6');
if a div 10 > a mod 10 then writeln('Цифра десятков числа больше цифры единиц числа')
else writeln ('Цифра десятков числа меньше цифры единиц числа');
if a mod 10 = 6 then writeln('Число оканчивается цифрой 6')
else writeln ('Число не оканчивается цифрой 6')
end.
Ответ: 2.
Так как если настоящий элемент меньше элемента с индексом k (при первой проверке - индексом первого элемента), то запоминаем индекс этого элемента.
<em>// PascalABC.NET 3.2, сборка 1427 от 24.04.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(ReadlnString.Replace(' ',''))
end.
<u>Пример</u>
А роза упала на лапу А з о ра
АрозаупаланалапуАзора
Var
f:boolean;
n:integer;
begin
f:=(n mod 2=0) and (n>=10) and (n<=99);
write (f);
end.