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

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

program CountCharacters;

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

begin
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 do
begin
readln(ch);

case ch of
'0'..'9': begin
digits := digits + 1;
if (Ord(ch) - Ord('0')) mod 2 = 0 then
evenDigits := evenDigits + 1
else
oddDigits := oddDigits + 1;
end;
'A'..'Z', 'a'..'z': begin
letters := letters + 1;
case UpCase(ch) of
'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.