Напишите программу, подсчитывающую количество букв во введенной строке (слове).
10-11 класс
|
var
s: string;
letters: set of 'А'..'я';
i, n: integer;
begin
writeln('Введите текст');
readln(s);
n := 0;
letters := ['А'..'я'];
for i := 1 to length(s) do
if s[i] in letters then n := n + 1;
writeln('Количество букв в строке: ', n);
end.
Тестовое решение:
Введите текст
Это текст содержащий буквы, цифры (1,2,3,4), латиницу werwer sxFFSFw и зн"ачки $@#$%#^
Количество букв в строке: 43
Другие вопросы из категории
D:\Материалы к урокам\10 класс\Практические работы.
Затем перешел в дереве каталогов на уровень выше, спустился в подкаталог Лекции и удалил из него файл Введение. Каково полное имя файла, который удалил преподаватель?
Определите, по какой из масок будет выбрана указанная группа файлов
make.cpp, name.c, age.pc, name.cpp
Выберите один ответ: a?e.* ?a?e.* *a*e.? *a?e.*Читайте также
Строковые операции. Подсчитать количество символов во введенной строке и если число символов больше 10, то вырезать 3 левых, 3 правых символа. Получить конечную строку переставив левые символы с правыми.
1–12, введенное с клавиатуры (1 — январь, 2 — февраль и т. д.). Вывести название соответствующего времени года («зима», «весна», «лето», «осень»).
2, Напишите программу, реализующую следующие вычисления. Дана матрица размера M x N (числа вводятся с клавиатуры). Для каждого столбца матрицы найти произведение его элементов. Полученные значения вывести в текстовый файл.
3, Напишите программу с использованием функции CircleS(R) вещественного типа, находящей площадь круга радиуса R (R — вещественное). С помощью этой функции найти площади трех кругов с данными радиусами. Площадь круга радиуса R вычисляется по формуле S = πR2.
4, Напишите программу, реализующую следующие вычисления. Дано целое число N (1≤N≤26), введенное с клавиатуры. Вывести N первых прописных (то есть заглавных) букв латинского алфавита.
определяет количество чисел, кратных 4. Программа получает на вход
количество чисел в последовательности, а затем сами числа. В
последовательности всегда имеется число, кратное 4. Количество чисел не
превышает 1000. Введённые числа не превышают 30 000. Программа должна
вывести одно число — количество чисел, кратных 4.
2. Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, кратное 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превышает 1000. Введённые числа не превыша ют 30 000. Программа должна вывести одно число — минимальное число, кратное 3.