Программа на СИ. Определить встречается ли в последовательности группа букв 'one', определить последнее вхождение этой группы. Дана непустая последовательность слов (не более 40), в каждом
слове не более 10 символов. Слова разделены пробелом, за последним
словом точка. Определить:
а) встречается ли в последовательности группа букв 'one'. Найти
последнее вхождение этой группы;
Мне сказали, что здесь нужно найти сначала последнее слово, в котором встречается эта группа букв "one", а потом вывести позицию, с которой начинается вхождение one(т.е фактически позицию буквы "o") в этом конкретном слове, а не из общей последовательности.
Я пробовала использовать функцию strtok, но с ней не получается. Strstr определяет вхождение из общей последовательности.
Как вывести слово, в котором встречается one?
var
i, j, n, len, rem: integer;
a: array[1..200] of byte;
begin
write('Введите число: ');
read(n);
len := 1;
a[1] := 1;
for i := n + 1 to 99 {100} do
begin
for j := 1 to len do
begin
rem := a[j] * i + rem;
a[j] := rem mod 10;
rem := rem div 10;
end;
while rem > 0 do
begin
inc(len);
a[len] := rem mod 10;
rem := rem div 10;
end;
end;
writeln('Произведение чисел из интервала (', n, '; 100): ');
for i := len downto 1 do write(a[i]);
end.
Пример работы программы:
Введите число: 1
Произведение чисел из интервала (1; 100):
1948348720420644788695888257080283249381963823594360049498643927185579338215778728274424636079639781709574621897447185108592230400000000000000000000