Question

СРОЧНО ПАСКАЛЬ Задача на строки Верно ли, что в строке встречается "оро" не менее двух раз? Для предложения "сорока и ворона часто присутствуют в сказках"- верно.

Answer 1

program oro2;

uses crt;

var

s:string;

i,k:integer;

begin

read(s);

i:=1;

k:=0;

while(i<length(s)-2)

do

begin

if (s[i]='о') and (s[i+1]='р') and (s[i+2]='о')

then

begin

i:=i+2;

k:=k+1;

end;

i:=i+1

end;

if k=2 then

write('Верно')

else

write('Нет')

end.

Answer 2

Да, в предложении "сорока и ворона часто присутствуют в сказках" строка "оро" встречается два раза. Для проверки данного условия в программе на Паскале можно воспользоваться методом pos, который находит позицию подстроки в строке. Для этого нужно сначала объявить переменную для хранения строки: ```pascal var str: string; ``` Затем инициализировать строку нужным предложением: ```pascal str := 'сорока и ворона часто присутствуют в сказках'; ``` Далее можно использовать метод pos для поиска подстроки "оро" в строке: ```pascal var pos1, pos2: integer; begin pos1 := pos('оро', str); // находим первое вхождение подстроки delete(str, pos1, 3); //удаляем найденное вхождение подстроки pos2 := pos('оро', str); // находим второе вхождение подстроки if pos2 <> 0 then write('Строка содержит "оро" не менее двух раз') else write('Строка не содержит "оро" не менее двух раз'); end. ``` В данной программе мы сначала находим позицию первого вхождения подстроки "оро" в строке и удаляем его с помощью процедуры delete. Затем находим позицию второго вхождения, и если оно найдено, выводим сообщение о том, что строка содержит "оро" не менее двух раз, иначе выводим сообщение, что строка не содержит "оро" не менее двух раз. В данном случае, программа выведет сообщение: "Строка содержит "оро" не менее двух раз".