Строка S составлена из нескольких предложений, каждоеиз которых заканчивается точкой, восклицательным или вопросительным знаком. Напишите программу,
10-11 класс
|
которая выводит на экран количество предложений в данной строке.
function max (x,y : longint) : longint;
begin
if x>y then max:=x else max:=y;
end;
var k : longint; s : string;
begin
readln(s);
while (pos('.',s)<>0)or(pos('!',s)<>0)or(pos('?',s)<>0) do
begin
k:=k+1;
Delete(s,max(max(pos('.',s),pos('!',s)),pos('?',s)),1);
end;
writeln(k);
end.
Другие вопросы из категории
должно находится на табло,чтобы с его помощью можно было передать 400 разных сигналов?
QBasic или на Visual Basic)?
Читайте также
двузначных элементов массива, которые не оканчиваются на 3. №2. Дан массив из 100 элементов. Каждый элемент может принимать целочисленные значения от 1 до 500. Напишите программу, которая позволит найти и вывести минимальное значение среди элементов массива, которые делят максимальное значение элементов массива без остатка.
подсчитать среднее арифметическое положительных элементов массива, которые кратны первому элементу массива. №2. Дан массив из 40 элементов. Каждый элемент может принимать целочисленные значения от 0 до 200. Напишите программу, которая позволит найти наиболее часто встречающийся элемент массива
2)Напишите программу, которая выводит в столбик цифры введённого числа, начиная с последней. Используйте процедуру.
3)Напишите программу, которая выводит в одну строчку все делители переданного ей числа, разделяя их пробелами.
4)Напишите программу, которая выводит в столбик цифры введённого числа, начиная с первой. Используйте процедуру.
Напишите программу, которая вычисляет НОК двух чисел. Используйте функцию.
определяет количество чисел, кратных 4. Программа получает на вход
количество чисел в последовательности, а затем сами числа. В
последовательности всегда имеется число, кратное 4. Количество чисел не
превышает 1000. Введённые числа не превышают 30 000. Программа должна
вывести одно число — количество чисел, кратных 4.
2. Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, кратное 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превышает 1000. Введённые числа не превыша ют 30 000. Программа должна вывести одно число — минимальное число, кратное 3.