составьте программу, которая вставляет слово ОБА после каждого слова, заканчивающегося на гласную.
5-9 класс
|
Или
составьте программу, которая определяет на сколько в строке S слов, начинающихся на главную букву больше, чем в строке T
надо решить одну из них
Первая.
uses crt;
var i:integer;
s:string;
begin
i:=1;
read(s);
while i<length(s) do
begin
if (s[i+1]=' ') and((s[i]='а') or (s[i]='е') or (s[i]='ё') or (s[i]='и') or (s[i]='о') or (s[i]='у') or (s[i]='ы') or (s[i]='э') or (s[i]='ю') or (s[i]='я')) then
begin
s:=copy(s,1,i)+'ОБА'+copy(s,i+1,length(s));
end;
i:=i+1;
end;
case s[length(s)] of 'а','е','ё','и','о','у','ы','э','ю','я':
s:=s+'ОБА';
end;
writeln(s);
end.
Другие вопросы из категории
числа ,то это новое число будет на единицу больше утроенного исходного числа .найдите исходное число
рыб будет в водоеме через 8 лет? через сколько лет в водоеме будет 300 000 рыб, если начиная с пятого года из водоема стали ежегодно забирать ещё 5000 рыб?
Читайте также
2)Составить программу которая вычисляет произведение натуральных чисел от 5 до 10.
а) определяет, есть ли в определенной строке заданный символ; б) копирует в новую строку имя и выводит его; в) выводит сначала фамилию, а затем имя. Задание 2. Составьте программу, которая в строке "Касіу Ясь канюшыну" заменяет имя "Ясь" на "Янка". Задание 3. Составьте программу, которая в строке "реки горы и болота": а) удаляет слово "горы"; б) Заменяет слово "болота" на "озера". Буду безмерно благодарна!!!
2)Составьте программу,которая заполняет массив e[1..8] случайными целыми числами в диапазоне от 1 до 20 и находит сумму элементов с нечётными значениями и количество элементов кратных 3.
3)Составьте программу,которая заполняет массив e[1..14] случайными целыми числами в диапазоне от -10 до 10,затем изменяет знак положительных элементов на противоположный,а отрицательные элементы заменяет на 0.Спасибо.
2. Составить программу, которая позволяет заменить все гласные символом "*"
Составить программу,которая выводит на экран сумму нечетных чисел от 1 до 30 в Pascal ABC.