Вопрос по информатике:
помогите решить задания очень срочно с помощью паскаля
в заданном слове подсчитать количество сочетаний "ое", а если их нет то к слову приписать это же слово.
- 19.04.2018 23:10
- Информатика
- remove_red_eye 7749
- thumb_up 15
Ответы и объяснения 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.
- 20.04.2018 12:43
- thumb_up 43
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.