Составьте программу, которая считает, сколько раз в тексте, заданном с клавиатуры, встречается буква "М"
10-11 класс
|
Текст: Мой компьютер сломан
Program A1;vara:string;b,i:integer;beginwriteln('Vvedi text');readln(a);b:=0;for i:=1 to length(a) do beginif copy(a,i,1)='м' then b:=b+1;end;writeln(b);end.
var str:string; h,m:char; k,l,q:byte; begin read(m); writeln('vvedite stroku'); read(str); l:=ord(str[0]); for k:= 1 to l do begin h:=str[k]; if h=m then q:=q+1; end; writeln('kolichestvo "m"',q); readln; end.
Program A1;
var
a:string;
b,i:integer;
begin
writeln('Vvedi text');
readln(a);
b:=0;
for i:=1 to length(a) do begin
if copy(a,i,1)='м' then b:=b+1;
end;
writeln(b);
end.
считает маленькие буквы м
сойдет или еще большие сделать буквы М
Другие вопросы из категории
Напишите программу вычисления среднего геометрического модулей двух введенных с клавиатуры чисел. Программа должна использовать цикл while do. Условия выхода их цикла-значение числа, равное 999.
сотрудниках. (минимум 5 таблиц) придумать название таблиц и столбиков в таблице
относится к адресу сети, а какая – к адресу самого узла в этой сети. Обычно маска записывается по тем же правилам, что и IP-адрес. Адрес сети получается в результате применения поразрядно конъюнкции к заданному IP-адресу узла и маске. По заданным IP-адресу узла и маске определите адрес сети. IP-адрес узла : 224.120.249.18 Маска: 225.225.240.0 При записи ответа выберите из приведённых в таблице чисел четыре элемента IP-адреса сети и запишите в нужном порядке соответствующие им буквы, без использования точек.
Читайте также
пересечения прямых, описываемых уравнениями a1x+b1x=c1 и a2x+b2x=c2. Если прямые пересекаются или не существуют-выдать соответствующее сообщение. 2) даны действительные числа a1, b1, a2, b2. Составьте программу, которая определяет, какая из точек A(a1;b1) или B(a2;b2) лежит на прямой у=2х+1. Если такой точки нет-вывести соответсвующее сообщение.
к
3.составить прогу которая находит индекс последней запятой в введенном тексте
элементов настоящей таблице х [1 .. 10] на 0.
3.составить программу, замены отрицательного элементов настоящей таблице х [1 .. 10] на их квадрат.
4.составить прогрумму, которая увеличивает на 2 все элементы настоящей таблице х [1 .. 10], которые больше 10.