строковый тип паскаль: Дана строка. Определить сколько в ней слов оканчиваются на букву «н»
10-11 класс
|
var i,count:integer;
var stroka:string;
begin
writeln('Vvedite stroku');
readln(stroka);
for i:=1 to length(stroka) do begin
if(stroka[i] = 'н') and (stroka[i+1]= ' ') then inc(count);
if(i=length(stroka)) and (stroka[i] = 'н') then inc(count);
end;
writeln(count);
readln;
end.
Другие вопросы из категории
у=х+3x^ если х больше или равно 0
у=61-х если х меньше 0
нужно сегодня
Читайте также
Пожалуйста,не надо писать решай сама!
2.Дана строка символов, среди которых есть одна открывающаяся и одна закрывающаяся скобка. Подсчитать, сколько слов расположено внутри этих скобок.
3.Дана строка. Удалить из нее все запятые и подсчитать, сколько получилось удаленных символов.
Помогите, пожалуйста!
Указания к выполнению: самостоятельно выполнить все этапы решения
задачи. Ввод и вывод матрицы оформить в виде процедур. При
необходимости выделить в задаче вспомогательные алгоритмы и оформить
их в виде подпрограмм.паскаль
Дана матрица, определить количество «особых» элементов. Элемент
считается «особым», если он больше суммы остальных элементов строки.
.
В данной строке определить количество цифр.
2. Определить, сколько Гбайт содержится в 512 байтах. Результат представить как возведенное в степень число 2.