Строка: Найти все слова, которые содержат символ «t» и встречаются в тексте не менее 2 раз.

@Yastreb1114 · Регистрация: 15.03.2013

Author24 — интернет-сервис помощи студентам

1. Дан текст. Найти все слова, которые содержат символ «t» и встречаются в тексте не менее 2 раз.
2. Результаты вступительных экзаменов представлены в виде списка из N строк, в каждой строке которого записаны фамилия студента и отметки по каждому из М экзаменов. Определить коли¬чество абитуриентов, сдавших вступительные экзамены только на «отлично».
3. Удалить часть символьной строки, заключенной в скобки (вместе со скобками).
4. Дано слово. Добавить к нему в начало четыре символа «+» и в конец — пять символов «-». Использовать оператор цикла.
5. Дано предложение. Определить, каких букв в нем больше: «м» или «н» и определить, какая буква встречается раньше. Найти позицию этой буквы.
6. В заданной последовательности слов найти все слова, имеющие заданное окончание.

Комментарий администратора

На будущее: одна задача - одна тема

@Кызюавка · 15.03.2013, 09:19

5

Pascal

program predl;
uses crt;
var s,sm,sn:string; i,pm,pn:byte; c:char;
begin
s:='Манка скамейка носорог носки';
for i:=1 to length(s) do   begin
if lowcase(s[i])='м' then   inc(pm);
if lowcase(s[i])='н' then   inc(pn);
end;
if pm=pn then begin writeln('Кол-во букв в предложении равно'); exit; end; if pm>pn then c:='м' else c:='н';
writeln('Буква "',c,'" встречается чаще');
for i:=1 to length(s) do
if lowcase(s[i])=c then begin  s[i]:=upcase(c); insert('(',s,i); inc(i);  insert(')',s,i+1);  end;
write(s);
end.

4

Pascal

program slovo;
uses crt;
var s:string; i,k:byte;
begin
s:='Слово';
k:=0;
for i:=1 to 4 do  begin
if k=0 then begin s:=s+'-'; k:=1; end;
insert('-',s,length(s));
insert('+',s,1);     end;
write(s);
end.

HighPredator · 15.03.2013, 11:12

Комментарий модератора

Yastreb1114, на один вопрос должна быть создана ровно одна тема.
Закрыто.

	15.03.2013, 11:12

Опции темы

Строка: Найти все слова, которые содержат символ «t» и встречаются в тексте не менее 2 раз.

Решение