Программа на СИ. Определить встречается ли в последовательности группа букв 'one', определить последнее вхождение этой группы. Дана непустая последовательность слов (не более 40), в каждом
слове не более 10 символов. Слова разделены пробелом, за последним
словом точка. Определить:
а) встречается ли в последовательности группа букв 'one'. Найти
последнее вхождение этой группы;
Мне сказали, что здесь нужно найти сначала последнее слово, в котором встречается эта группа букв "one", а потом вывести позицию, с которой начинается вхождение one(т.е фактически позицию буквы "o") в этом конкретном слове, а не из общей последовательности.
Я пробовала использовать функцию strtok, но с ней не получается. Strstr определяет вхождение из общей последовательности.
Как вывести слово, в котором встречается one?
У меня есть компьютер.Мой верный друг который служит мне 5 год.Он очень сильный и никогда не глючил.Вдруг решил я включить компьютер,не включается.Напугался я тогда,никак понять не мог."Да как такое возможно?"-удивился я.Решил пойти к маме и сказать проблему с компьютером.Вскоре мама утешила и сказала что его нужно починить.Мама позвонила наладчику.Он приехал буквально через 5 минут.Осматривал он компьютер и сказал что он довольно старый и если его починить он будет глючить.В итоге мама сказала что пора купить новый компьютер.Мне конечно было одновременно радостно и печально.Радостно потому что я получу красивый,модный компьютер,а печально потому что этот компьютер был моим другом и служил мне довольно много лет.
s:string;
i:integer;
begin
Write('Введите слово: '); Readln(s);
for i:=Length(s) downto 1 do Insert(' ',s,i);
Writeln('Результат: ',s)
end.
Пример решения
Введите слово: Паскаль
Результат: П а с к а л ь
var
s1,s2,s3:string;
i:integer;
begin
Write('Введите первое слово: '); Readln(s1);
Write('Введите второе слово той же длины: '); Readln(s2);
s3:='';
for i:=1 to Length(s1) do s3:=s3+s1[i]+s2[i];
Writeln('Результат: ',s3)
end.
Пример решения
Введите первое слово: Корова
Введите второе слово той же длины: собака
Результат: Ксоорбоавкаа