Написать программу на паскале которая определяет, каков процент пробелов во введенном тексте.
10-11 класс
|
var
s: string;
i, n, k: integer;
begin
writeln('Введите текст');
readln(s);
n := Length(s);
k := 0;
for i := 1 to n do
if s[i] = ' ' then k := k + 1;
writeln('Количество пробелов в тексте- ', k)
end.
Тестовый пример:
Введите текст
А роза упала на лапу Азора, а тут ДВА пробела , а тут вообще пять: : Все!
Количество пробелов в тексте- 21
Комментарий удален
обычный турбопаскаль, который в школах стоит.
Другие вопросы из категории
уровень продаж для трех менеджеров. Определить их зарплату, определить лучшего менеджера, начислить ему премию 200$, вывести итоги на экран.
диагонали на максимальный элемент той же строки
Читайте также
http://primat.org/index/0-128 вот сайт что бы написать программу.
массив из N целых чисел и выводит на экран номера отрицательных элементов и сами эти элементы. Протестировать программу для следующих массивов:
а) 3 5 -2 0 -6 -8 1
б) -1 -2 -3 0 -1 2 3
массивы должны вводися вручную а не рандомно.
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!