Дан текст, записанный заглавными буквами. Каких букв в нем больше: русских или латинских? Паскалем надо, пжлст
10-11 класс
|
var
Rus: set of 'А'..'Я';
Lat: set of 'A'..'Z';
nLat, nRus, i: integer;
s: string;
begin
Write('Введите текст: ');
Readln(s);
nRus := 0; nLat := 0;
Rus := ['А'..'Я'];
Lat := ['A'..'Z'];
for i := 1 to Length(s) do
if (s[i] in Rus) then nRus := nRus + 1
else if (s[i] in Lat) then nLat := nLat + 1;
if nRus > nLat then Writeln('Русских букв больше, чем латинских')
else if nRus = nLat then Writeln('Русских и латинских букв поровну')
else Writeln('Латинских букв больше, чем русских')
end.
Тестовое решение:
Введите текст: ТАКАЯ VOT STRAННАЯ ЗАДА4А NAM ПОПАЛAC6 !!!
Русских букв больше, чем латинских
Другие вопросы из категории
А) Сжать архиватором, передать архив по каналу связи, распаковать
Б) Передать по каналу связи без использования архиватора.
Какой способ быстрее и насколько, если
– средняя скорость передачи данных по каналу связи составляет 218 бит в секунду,
– объем сжатого архиватором документа равен 30% от исходного,
– время, требуемое на сжатие документа – 7 секунд, на распаковку – 1 секунда?
2) Для кодирования букв А, В, С, D используются четырехразрядные последовательные двоичные числа, начинающиеся с 11 (от 1100 до 1111 соответственно). Какое восьмеричное число будет соответствовать закодированной таким образом последовательности CAD?
ПОМОГИТЕ ХОТЯ БЫ С ОДНИМ!!!!!
Читайте также
Определить,равен ли квадрат этого числа учетверённой сумме кубов его цифр. Например, для числа 48 ответ положительный, для числа 52-отрицательный. 3. Дано двузначное число. Определить: a. кратна ли трём сумма его цифр b. кратна ли сумма его цифр числу a. 4. Дано трёхзначное число Определить,равен ли квадрат этого числа сумме кубов его цифр. 5. Дано двузначное число,определить:входит ли в него цифра 3: входит ли в него цифра a.