1. Составить программку ,которая определяет ,сколько раз в предложении встречается слово
1. Составить программку ,которая определяет ,сколько раз в предложении встречается слово "дом".
2. Составить программку ,вычисляющую длину самого краткого слова в предложении из трёх слов ,разделённых пробелами.
Паскаль
Cytkov Mihail
"дом" считается словом, когда справа и слева любые знаки, кроме букв российского алфавита?
Сережа Зобенько
если через пробел ,то да.
Степан Бодябин
если написано семейный, здесь слово дом считать?
Alina Lanshhikova
да ,и я уточнил что слово может находиться так: fhdfksbдомbjsdhfbhs и дом и ароараоыаврыДОМорраврв.
1 ответ
Тимур Лозбень
Код PascalABC.NET 3.2:
Var S:string;
i,k:integer;
Begin
Write('Введите строчку: ');ReadLn(S);
LowerCase(S);
k:=0;
For i:= 1 to S.Length-2 do
if S[i] = 'д' then
if S[i+1] = 'о' then
if S[i+2] = 'м' then
k:=k+1;
WriteLn(k)
End.
Var
S:string;
i,d1,d2,d3:integer;
Begin
WriteLn('Введите строчку:');
ReadLn(S);
i:=0;
Repeat
i+=1
Until S[i] = ' ';
d1:=i-1;
Repeat
i+=1
Until S[i] = ' ';
d2:=i-d1-2;
Repeat
i+=1
Until i = S.Length;
d3:=i-d2-d1-2;
if d3 lt; d1 then d1:=d3;
if d2 lt; d1 then d1:=d2;
WriteLn(d1)
End.
Var S:string;
i,k:integer;
Begin
Write('Введите строчку: ');ReadLn(S);
LowerCase(S);
k:=0;
For i:= 1 to S.Length-2 do
if S[i] = 'д' then
if S[i+1] = 'о' then
if S[i+2] = 'м' then
k:=k+1;
WriteLn(k)
End.
Var
S:string;
i,d1,d2,d3:integer;
Begin
WriteLn('Введите строчку:');
ReadLn(S);
i:=0;
Repeat
i+=1
Until S[i] = ' ';
d1:=i-1;
Repeat
i+=1
Until S[i] = ' ';
d2:=i-d1-2;
Repeat
i+=1
Until i = S.Length;
d3:=i-d2-d1-2;
if d3 lt; d1 then d1:=d3;
if d2 lt; d1 then d1:=d2;
WriteLn(d1)
End.
Лидия Словачевская
Спасибо
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов