Составьте программу ,которая:считает, сколько раз в тексте, заданном с клавиатуры, встречается буква «М».решение паскаль через цикл
10-11 класс
|
program primer;
var st1,st:string;
a,b:integer;
begin
write('введите текст ,в конце ввода нажмите enter'); writeln;
read(st);
for a:=1 to length(st) do begin
st1:=copy(st,a,1);
if st1='М' then
inc(b)
else if st1='м' then
inc(b)
else;
end;
write(b);
end.
Другие вопросы из категории
Вариант задания выбирается по последней цифре зачетной книжке.
По заданным расчетным формулам и наборам исходных данных,
указанных в таблице, вычислить на ПК значения соответствующих
переменных. На печать вывести значения вводимых исходных данных и
результаты расчетов, сопровождая их вывод именами выводимых
переменных.
мму элементов массива, значения которых положительны.
Читайте также
пересечения прямых, описываемых уравнениями 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.