var c,i: integer; X: string; begin writeln('Введите слово: '); read(X); for i:=1 to length(X) do if X[i] in ['а', 'о', 'э', 'и', 'у', 'ы', 'е', 'ё', 'ю', 'я'] then inc(c); writeln('Гласных букв в слове: ',c); end.
2 числа записывают в порядке неубывания, то есть в порядке возрастания, или 2 числа равны. Числа:2512, 2518, 2524 не подходят уже по этому критерию. Max сумма трех десятичных цифр = 27(9+9+9). Число 2828 не подходит. Остались числа: 2425, 1225, 1825, 123. Рассмотрим последнее число 123. Сумма первых 3 его цифр равна 1, т.е первые три цифры 100, третья цифра 0 должна в сумме с двумя другими цифрами дать 23, но сумма 2 цифр меньше или равна 18, поэтому такого числа нет.
2626 2618 2624 2628 2826 2426 1826 610 + - - - - + + + 26 26 24 26 18 26 6 10 99899 79899 19899 22244 4 плюсика. Из приведённых чисел могут получиться в результате работы автомата 4 числа. Это 2626, 2426, 1826, 610. В числах 2618, 2624 последовательности убывающие (26-18, 26-24). В числах 2628, 2826 есть число 28, которое не может быть получено суммой трёх десятичных цифр, (максимум 9+9+9=27).
c,i: integer;
X: string;
begin
writeln('Введите слово: ');
read(X);
for i:=1 to length(X) do
if X[i] in ['а', 'о', 'э', 'и', 'у', 'ы', 'е', 'ё', 'ю', 'я'] then inc(c);
writeln('Гласных букв в слове: ',c);
end.