uses crt;
 var s: string;
 i,k: byte;
 begin
 write('s='); readln(s);
 for i:=1 to length(s)-1 do
 if (s[i]=' ') and (s[i+1]<>' ') then inc(k);
 writeln('Kolichestvo slov ',k+1);
 readln;
 end.

Но как дописать код, чтобы не выводило на экран к-во слов, а проверяло на непарность и пикало?)))
Спасибо
Позарез нужно((((

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

17.01.2013, 19:46

Ответы с готовыми решениями:

Найти количество слов и если оно нечетное, то подать звуковой сигнал
Люди, посмотрите код, написано вроде правильно.... Найти количество слов и если она нечетная, то...

Подать звуковой сигнал, если текстовое поле не заполнено
Всем привет! Вывожу в Edit1 IP адрес. procedure TForm1.Timer1Timer(Sender: TObject); type ...

Подать звуковой сигнал, если введенное число превышает 100
Напишите программу, которая вводит в цикле целые числа и если число превышает 100, подает звуковой...

Подать звуковой сигнал через контроллеры ICP CON I7188EA
В общем. суть проблемы в следующем: притаранили нам контроллер ICP CON i-7188ea и сказали. что на...

	17.01.2013, 19:46

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

17.01.2013, 19:46

Помогаю со студенческими работами здесь

Произвести запись программы в файл и при завершении подать звуковой сигнал
#include <stdio.h> #include <time.h> #include <stdlib.h> #include <conio.h> #define N 12...

Для произвольной матрицы строку с наименьшей суммой увеличить на сумму диагональных элементов, если она четная и уменьшить, если нечетная
Задача 6. Для произвольной матрицы строку с наименьшей суммой увеличить на сумму диагональных...

Найти количество слов в словаре, если известно количество страниц, количество слов на странице и средняя длина слова
помогите с программой, которая выполняет эти расчеты: В русско-английском словаре 948 страниц, на...

Если случайное число попало в диапазон 60 - 100, подайте звуковой сигнал
Напишите программу, которая генерирует 100 целых случайных чисел в диапазоне 1..300. Если случайное...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх