Question

помогите решить задания очень срочно с помощью паскаля в заданном слове подсчитать количество сочетаний "ое", а если их нет то к слову приписать это же слово.

Answer 1

Program prog;
uses crt;

var s: string;
    i,k: integer;
   
begin
clrscr;

write('Введите  S = ');
readln(s);

for i:=1 to (length(s)-1) do
if s[i]+ s[i+1]= 'ое' then k:=k+1;

if k>0 then
writeln('Количество сочетаний "ое" k = ',k)
else begin
writeln('Cочетаний нет');
writeln(s+s);
end;
end.

Answer 2

Для решения данной задачи на языке Паскаль можно использовать следующий алгоритм:

1. Объявить переменные: - word: string - исходное слово - count: integer - количество сочетаний "ое" - result: string - результат

2. Ввести исходное слово с помощью функции ReadLn и присвоить его переменной word.

3. Инициализировать переменные count и result: - count := 0 - result := ''

4. Создать цикл, который будет проходить по каждой букве в слове: - for i := 1 to Length(word) - 1 do

5. Внутри цикла проверить, являются ли текущая и следующая буквы сочетанием "ое": - if (word[i] = 'о') and (word[i + 1] = 'е') then begin count := count + 1; end;

6. После цикла проверить значение переменной count: - if count = 0 then begin result := word + ' ' + word; end else begin result := word; end;

7. Вывести результат с помощью функции WriteLn: - WriteLn(result).

Полный код программы на языке Паскаль может выглядеть следующим образом:

program CountOE;

var
  word: string;
  count: integer;
  result: string;
  i: integer;

begin
  Write('Введите слово: ');
  ReadLn(word);
  
  count := 0;
  result := '';
  
  for i := 1 to Length(word) - 1 do
  begin
    if (word[i] = 'о') and (word[i + 1] = 'е') then
    begin
      count := count + 1;
    end;
  end;
  
  if count = 0 then
  begin
    result := word + ' ' + word;
  end
  else
  begin
    result := word;
  end;
  
  WriteLn(result);
end.

После запуска программы она запросит ввести слово. После ввода слова она подсчитает количество сочетаний "ое" и выведет результат. Если сочетаний "ое" нет, то к слову будет приписано это же слово.