Информатика Паскаль 10-11класс Напишите программу, которая считывает с клавиатуры n символов и затем выводит на экран:a) количество считанных десятичных цифр;b) количество четных цифр;c) количество нечетных цифр;d) количество считанных букв;e) количество гласных;f) количество согласных. Вводимые символы разделяются нажатием клавиши <ENTER >.Предполагается, что будут вводиться десятичные цифры 0, 1, 2, ... 9 и прописные буквы латинского алфавита A, B, C, ... Z.

Предыдущий
вопрос Следующий
вопрос

program CountCharacters;

va
n, i, digits, evenDigits, oddDigits, letters, vowels, consonants: integer
ch: char;

begi
digits := 0
evenDigits := 0
oddDigits := 0
letters := 0
vowels := 0
consonants := 0;

writeln('Enter the number of characters: ')
readln(n);

writeln('Enter ', n, ' characters: ');

for i := 1 to n d
begi
readln(ch);

case ch o
'0'..'9': begi
digits := digits + 1
if (Ord(ch) - Ord('0')) mod 2 = 0 the
evenDigits := evenDigits +
els
oddDigits := oddDigits + 1
end
'A'..'Z', 'a'..'z': begi
letters := letters + 1
case UpCase(ch) o
'A', 'E', 'I', 'O', 'U', 'Y': vowels := vowels + 1
else consonants := consonants + 1
end
end
end;

end;

writeln('Number of decimal digits: ', digits)
writeln('Number of even digits: ', evenDigits)
writeln('Number of odd digits: ', oddDigits)
writeln('Number of letters: ', letters)
writeln('Number of vowels: ', vowels)
writeln('Number of consonants: ', consonants)
end.