Вопрос по информатике:
Помогите пожалуйста с задачей по программированию.
В заданном тесте подсчитать количество четырехбуквенных слов и каждое четное из них заменить на сочетание "SsSs". Слова отделены друг от друга пробелом.
Пожаловаться
- 24.12.2017 03:13
- Информатика
- remove_red_eye 915
- thumb_up 25
Ответы и объяснения 1
// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadlnString('->').ToWords;
var k:=0;
for var i:=0 to a.Length-1 do
if a[i].Length=4 then begin
k+=1;
if k.IsEven then a[i]:='SsSs'
end;
Writeln('Четырехбуквенных слов: ',k);
var s:=a.JoinIntoString(' ');
Writeln(s)
end.
Пример
-> Мама мыла раму Тамара ела кашу а Даша играла в мяч
Четырехбуквенных слов: 5
Мама SsSs раму Тамара ела SsSs а Даша играла в мяч
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadlnString('->').ToWords;
var k:=0;
for var i:=0 to a.Length-1 do
if a[i].Length=4 then begin
k+=1;
if k.IsEven then a[i]:='SsSs'
end;
Writeln('Четырехбуквенных слов: ',k);
var s:=a.JoinIntoString(' ');
Writeln(s)
end.
Пример
-> Мама мыла раму Тамара ела кашу а Даша играла в мяч
Четырехбуквенных слов: 5
Мама SsSs раму Тамара ела SsSs а Даша играла в мяч
Пожаловаться
- 25.12.2017 14:29
- thumb_up 13
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы