составьте программу нахождения количества слов в предложении. Предложение состоит из слов, отделенных друг от друга одним пробелом. Предложение вводится с
5-9 класс
|
клавиатуры.
Program Task;
Var s: String;
i, r: Integer;
Begin
WriteLn('Введите предложение:');
ReadLn(s);
If (Length(s) > 0) And (s[1] <> ' ') Then
r := 1;
For i := 1 To Length(s) Do
If s[i] = ' ' Then
r := r + 1;
WriteLn('Результат: ', r);
ReadLn;
End.
"Программа нахождения Коли" - это прикольно :)
Другие вопросы из категории
раз поднялся на один уровень вверх и после этого спустился в каталог Экзамен. Запишите полный путь каталога, в котором оказался пользователь.1) C:\Физика. 2)C:\Экзамен. 3) C:\Физика\Экзамен. 4) C:\Физика\Задачи\Экзамен
Вторая задача:
Пользователь работал с каким-то каталогом. Сначала он перешел в какой-то подкаталог текущего каталога, затем еще раз перешел в какой-то подкаталог текущего каталога. В результате пользователь оказался в каталоге C:\Адреса\Личные\Семья. Определите полное имя каталога, в котором пользователь находился первоначально.1) C:\ 2) C:\Адреса 3) C:\Адреса\Личные 4) C:\Адреса\Личные\Семья
Читайте также
2) составить программу нахождения чисел от 10 до 99 сумма квадратов которых кратна 13 (mod=0)
3) найти сумму всех целых нечетных чисел меньших 100
4) найти сумму чисел в диапазоне от A до B кратных четырём. Числа А и В вводятся с клавы.
5) Найти все натуральный делители натурального числа n
Или
составьте программу, которая определяет на сколько в строке S слов, начинающихся на главную букву больше, чем в строке T
надо решить одну из них
2.Составьте программу вычисления количества трёхзначных чисел палиндромов ( чисел, которые читаются одинаково слева направо и справа налево).
3.Найти двухзначные числа, которые делятся на сумму своих цифр
4.Составьте программу вывода количества трёхзначных чисел, у которых цифры упорядочены строго по убыванию.
РЕБЯТА СРОЧНО!!!!!!!!!!!