var i, ans: byte; begin ans := 0; // Обнуляем ответ. for i := 10 to 49 do // Переменной i перебираем значения от 10 до 49, то есть все натуральные двузначные числа, меньшие 50-ти if i mod 11 <> 0 then // Если текущее значение переменной не делится на 11, то… inc(ans); // Увеличиваем ответ writeln(ans); //Выводим окончательный ответ end.
