tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Решить с паскаля в заданном
Решить с паскаля в заданном слове подсчитать количество сочетаний "ое", а если их нет то к слову приписать это же слово.
ХристинаРоманівна
3 27.06.2019 02:50
0
Ответы
CawaVlasov
21.07.2020 17:59
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Саляриум
06.10.2019 01:40
Дан фрагмент текста , запрашиваемый у пользователя. написать программу, меняющую регистр всех букв на противоположный с#...
ma4newarita
06.10.2019 01:40
Нужно составить программу на паскале (через ). задан список студентов из 7 фамилий. распечатать данный список в столбец и найдите в списке все фамилии, начинающиеся со...
lilo52
06.10.2019 01:40
Дана последовательность чисел, оканчивающаяся 0. определить сумму нечётных чисел, кратных 7....
IsabellaSwan2017
17.08.2019 22:40
Даны действительные а,b,с,d. получить min(a,b) + max(a,b,c) 1+max(a,b,c,d)...
Anasteija
17.08.2019 22:40
Чем отличается канал связи от линии связи...
Вадим123214
28.09.2019 04:40
Используя дополнительные источники информации, найдите данные о последних новейших процессорах и определите их отличие от повседневно используемых вами процессоров...
refoinda
28.09.2019 04:40
Информатика! учительница дала ученикам набрать на компьютере текст который состоит из 20 символов. ученик набрал текст с силой состоящей из 16 символов, а болат набрал...
DashaAndreanova
28.09.2019 04:40
30 б составить программу на языке паскаль,возведения числа х в степень числа y....
tanysha29
27.01.2021 15:30
Что такое протокол передачи данных...
gulnar1964
27.01.2021 15:28
Молю мне с этой информатикой,ничего не понимаю,с виду казалось легче...
Популярные вопросы
Бобик залез в окно и с любопытство стал осматривать комнату. осмотрелся...
1
Какого человека ты можешь назвать личностью и почему...
1
Надо расшифровать послание. nb mznv rh kvgvi .r xlnv uiln rmwrz .nvvg...
1
Образ падчерицы и образ мачехиной дочки из сказки метелица....
2
На книжной ярмарке в первый день продали 8700 книг это на 1800 книг...
1
Написать сочинение если б я была на месте кожабергена на казахском...
1
Когда камбэк корейской группы monstax?...
2
Линии движения мелодии музыки песня родина моя музыка тиличеева...
1
Твір на тему мої улюблені календарно- обрядові пісні...
1
Кратки пересказ книги синяя птица...
2
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.