Информатика Паскаль 10-11класс Напишите программу, которая считывает с клавиатуры n символов и затем выводит на экран:a) количество считанных десятичных цифр;b) количество четных цифр;c) количество нечетных цифр;d) количество считанных букв;e) количество гласных;f) количество согласных. Вводимые символы разделяются нажатием клавиши <ENTER >.Предполагается, что будут вводиться десятичные цифры 0, 1, 2, ... 9 и прописные буквы латинского алфавита A, B, C, ... Z.
Информатика Паскаль 10-11класс Напишите программу, которая считывает с клавиатуры n символов и затем выводит на экран:a) количество считанных десятичных цифр;b) количество четных цифр;c) количество нечетных цифр;d) количество считанных букв;e) количество гласных;f) количество согласных. Вводимые символы разделяются нажатием клавиши <ENTER >.Предполагается, что будут вводиться десятичные цифры 0, 1, 2, ... 9 и прописные буквы латинского алфавита A, B, C, ... Z.
Похожие вопросы
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
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
case ch ofbegin
readln(ch);
'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.