Определить количество слов, содержащих введенный символ.

@asya92 · Регистрация: 11.12.2009

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

1. Составить главную программу и функцию. В функции для двух век-торов А(N) и В(М), состоящих из целых чисел, найти самое большое простое число, которое имеется в обоих векторах.
2. Вводится строка и символ. Определить количество слов, содержа-щих введенный символ.

@yanyk1n · 02.01.2010, 22:26

2.

Pascal

uses crt;
var st,buf:string;
    ch:char;
    k:integer;
begin
 k:=0;
 clrscr;
 write('Строка -> ');
 readln(st);
 write('Символ ->');
 readln(ch);
 repeat
  if (st[1]=' ') or (length(st)=1) then while st[1]=' ' do delete(st,1,1)
  else
  begin
   while (st[1]<>' ') and (length(st)>1) do
   begin
    buf:=buf+st[1];
    delete(st,1,1);
   end;
  f pos(ch,st)>0 then inc(k);
  buf:='';
  end;
 until (length(st)=1) and (length(buf)=0);
 writeln(k);
 readln;
end.

@asya92 0 / 0 / 0 Регистрация: 11.12.2009 Сообщений: 6
		1
	Определить количество слов, содержащих введенный символ. 02.01.2010, 22:19. Показов 1303. Ответов 1 Метки нет (Все метки) 1. Составить главную программу и функцию. В функции для двух век-торов А(N) и В(М), состоящих из целых чисел, найти самое большое простое число, которое имеется в обоих векторах. 2. Вводится строка и символ. Определить количество слов, содержа-щих введенный символ. 0

Опции темы

Определить количество слов, содержащих введенный символ.

Решение