написать программу которая подсчитает колличество русских букв а в произвольно набранной с клавиатуры строковой переменной срочно плиз
10-11 класс
|
var a:string;
i,k:integer;
begin
readln(a);
for i:=1 to length(a) do begin
if pos(a[i],'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъыьэюя')<>0 then inc(k);
end;
writeln(k);
end.
Другие вопросы из категории
Задан массив Х(50). Переписать в массив У элементы массива Х в обратном порядке
забронировал одно конкретное место в зала?
пунктуации и т.д)можно закодировать,используя код Морзе длиной ровно в пять сигналов(точек и тире)?напишите по подробнее
100
b := -50
а := а - b * 3
если а > b то с := а - b
иначе с := b - а
всё
Варианты ответов: 1)с=0 , 2)с= - 300 , с=250 , 4)с=400
Читайте также
текст.
3)Написать программу, которая определяет является ли слово палиндромом.
4)Написать программу, определяющую какая из букв а или о встречается в тексте первой.
Помогите хотябы одну пожалуйста))Нужно до завтра!))
среднее второго и предпоследнего элементов массива
дан целочисленный
массив из 10 элементов написать программу находящую сумму элементов
массива красных 3 ил 5
дан целочисленный массив из 30 ти элементов
написать программу которая позволяет найти среднее арифметическое
положительных элементов массива
число рядов. Написать программу подсчета мест в кинотеатре «Оскар», в соответствии со схемой кинотеатра, представленной ниже. На экран вывести итоговое количество мест.(вложение - 1 рисунок)
Программа 6. Найти значение выражения для вводимых с клавиатуры А, В и С. при А=4, В=2, С=5.(вложение - формула)
Программа 7. Написать программу, вычисляющую значения логического выражения . На экран вывести это значение.
Программа 8. Пользователь вводит число 0,515625. Написать программу, которая в точности повторяет алгоритм перевода данного числа из десятичной системы счисления в четверичную. На экран вывести окончательный результат.
представлен вид экрана во время работы программы, который вам нужно реализовать:
Таблица квадратов
-----------------------------
Число Квадрат
-----------------------------
1 1
2 4
и т.д.
2. Написать прогрумму,которая выводит на экран, разность значений двух вещественных массивов из 10 элементов.