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

@r4c0r3 · Регистрация: 22.02.2010

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

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

Добавлено через 11 минут

Сообщение от r4c0r3

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

Pascal

const sl='то';
var
  s: string;
  k, i: integer;
 
begin
  write('Введите предложение:');
  readln(s);
  k := 0;
  while pos(sl, s) > 0 do
  begin
    k := k + 1;
    delete(s, pos(sl, s), length(sl));
  end;
  writeln('Слово "то" встречается в предложении ',k, ' раз(а)');
end.

@SergioRZN · 02.05.2010, 13:02

Pascal

program For_r4c0r3;
uses crt;
var
i:integer;
str:string;
k:integer;
begin
k:=0;
writeln('Введите строку'); readln(str);
for i:=1 to length(str) do
    begin
    if (str[i]='т') and (str[i+1]='о') then k:=k+1;
    end;
writeln(k);
end.

@Oleg` · 05.06.2010, 23:48

Кто нибудь знает из какого задачника эта задача?

@Oleg` 4 / 4 / 0 Регистрация: 28.02.2009 Сообщений: 65
	05.06.2010, 23:48	3
	Кто нибудь знает из какого задачника эта задача? 0