Вести строку символов которая начинается пробелом и заканчивается пробелом. Слова разделены пробелом. 1)найти кол-во слов которые заканчиваются на букву
10-11 класс
|
"б"
var
i, e : Integer;
s : String;
begin
Writeln('Введите строку:');
Readln(s);
e := 0;
for i := 2 to Length(s) do
if (s[i] = ' ') and (s[i-1] = 'б') then inc(e);
Writeln('Таких слов: ', e);
end.
Другие вопросы из категории
Читайте также
исходный массив и результат подсчёта .Программа бейсик
2.Дана строка символов, среди которых есть одна открывающаяся и одна закрывающаяся скобка. Подсчитать, сколько слов расположено внутри этих скобок.
3.Дана строка. Удалить из нее все запятые и подсчитать, сколько получилось удаленных символов.
Помогите, пожалуйста!
получает на вход два натуральных числа А и В, не превосходящих 10^9^ А<=В . Программа должна вывести одно число - кол-во натуральных чисел, больше или равных А и меньших или равных В, сумма цифр которых четна.
100 км пробега,цена одного литра бензина