Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Определить, с английской или русской буквы начинается текст Здравствуйте! Не могу сообразить задачи по строковым величинам, после массивов голова уже не варит. Помогите пожалуйста. 3) Составьте программу, определяющую, с английской или русской буквы... https://www.cyberforum.ru/ pascalabc/ thread626496.html	*Вставить в заданный текст знак "" после каждой буквы "ы" Pascal ABC** Здравствуйте! Не могу сообразить задачи по строковым величинам, после массивов голова уже не варит. Помогите пожалуйста. 4) Составьте программу, вставляющую в заданный текст знак "*" после каждой...
Pascal ABC Составьте программу, заменяющую слог "на" на "ни" в предложениях https://www.cyberforum.ru/ pascalabc/ thread626493.html Здравствуйте! Не могу сообразить задачи по строковым величинам, после массивов голова уже не варит. Помогите пожалуйста. 2) Составьте программу, заменяющую слог "на" на "ни" в предложениях.	Pascal ABC Из слова "яблока" путем вырезок и склеек получить слово "блок" и "ока" https://www.cyberforum.ru/ pascalabc/ thread626199.html 2.Из слов "вирус" получить слово "фокус"!!! 3.Из слова "яблока" путем вырезок и склеек получить слово "блок" и "ока"!!! Заранее всем спасибо!!!:))))
Сумма двух первых цифр заданного четырехзначного числа равна сумме двух его последних цифр Pascal ABC Здравствуйте. не могу решить некоторые задачи. можете помочь? II.Логические выражения Составить линейную программу, печатающую значение true, если указанное высказывание является истинным, и...	Pascal ABC Верно ли, что Шахматный конь за один ход может переместиться с заданного поля на другое II.Логические выражения 23. Шахматный конь за один ход может переместиться с одного заданного поля на другое (каждое поле задано двумя координатами — целыми числами от 1 до 8). https://www.cyberforum.ru/ pascalabc/ thread626194.html
Pascal ABC Вычисление среднего / поиск минимального элемента в массиве Записать алгоритм решения задачи на языке Паскаль. Вычислить средний рост дли N-го количества людей. Записать алгоритм решения задали на языке Паскаль. Вычислить минимальный рост для N-го количества... https://www.cyberforum.ru/ pascalabc/ thread626186.html	Записать алгоритм вычисления произведения ряда Pascal ABC Записать алгоритм решения задачи на языке Паскаль. Числа m,x задаются пользователем. y=\prod_{i=1}^{m}\left(\frac{\sqrt{\left\|x \right\|}}{i} \right)
Pascal ABC Определить количество чисел, входящих в диапазон [-1;5] https://www.cyberforum.ru/ pascalabc/ thread626177.html Количество чисел вводимых с клавиатуры равно N. Определить количество входящих в диапазон	Pascal ABC Вывести все целые числа, расположенные между данными числами Очень прошу помогите пожалуйста 33. Даны два целых числа a и b (a<b). Вывести все целые числа, расположенные между данными числами (включая сами эти числа), в порвдке их возрастании, а также... https://www.cyberforum.ru/ pascalabc/ thread626176.html
Pascal ABC Вычислить все значения выражения на заданном интервале с заданным шагом Очень прошу помогите пожалуйста Записать алгоритм решения задачи на языке Паскаль. Вычислить все значения у. Число х задается пользователем, с меняется от 1 до 10 с шагом 0,2 y=\sqrt{1+ax+a{x}^{2}}...	Pascal ABC Вычислить все значения на заданном интервале https://www.cyberforum.ru/ pascalabc/ thread626171.html Очень прошу помогите пожалуйста Записать алгоритм решения задачи на языке Паскаль. Вычислить все значения у. Число х задается пользователем, с меняется от 1 до 10 с шагом 1 y=\sqrt{1+ax+a{x}^{2}}...

КонецСвета

Почетный модератор

7966 / 3937 / 2464

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

Сообщений: 5,377

08.11.2011, 20:44

Вывести на экран слова, содержащие три буквы, и подсчитать их количество - Pascal ABC - Ответ 3291415

08.11.2011, 20:44. Показов 1495. Ответов 2

Метки (Все метки)

Ответ

Вторая задачка, другой вариант

Pascal

uses crt;
var s:string;
    k, i: integer;
begin
     write ('s=');
     readln (s);
     s:=' '+s+' ';
     writeln ('Слова, состоящие из 3х букв');
     for i:=1 to length(s)-4 do
         if (s[i]=' ') and (s[i+1]<>' ') and (s[i+2]<>' ') and (s[i+3]<>' ') and (s[i+4]=' ')
            then
                begin
                     writeln (s[i+1],s[i+2],s[i+3]);
                     inc(k);
                end;
     writeln ('Количество слов из 3х букв = ',k);
end.

Вернуться к обсуждению:
Вывести на экран слова, содержащие три буквы, и подсчитать их количество Pascal ABC

Programming

Эксперт

94731 / 64177 / 26122

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

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

08.11.2011, 20:44

Готовые ответы и решения:

Вывести на экран слова, содержащие три буквы
Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова, содержащие три буквы.

Вывести на экран слова, содержащие три буквы
Необходимо написать программу: Дана строка, содержащая текст, заканчивающийся точкой. Вывести на...

Вывести на экран слова,содержащие три буквы
1.дана символьная строка ,содержащая текст,заканчивающийся точкой. Вывести на экран...

Вывести на экран слова, содержащие три буквы
Дана строка, содержащая текст, заканчивающаяся точкой. Вывести на экран слова, содержащие три...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

08.11.2011, 20:44

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

Вывести на экран слова, содержащие три буквы.
Помогите пожалуйста Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран...

Вывести на экран слова, содержащие три буквы
дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова, содержащие три...

Вывести на экран слова, содержащие три буквы
1.Ввести последовательность символов, содержащие текст, что заканчиваются точкой. 2.Вывести на...

Вывести на экран слова, содержащие три буквы
всем привет, помогите решить: Дан текст. Вывести на экран слова, содержащие три буквы. ...

Наверх