Вопрос по информатике:
Помогите переделать программу. Чтобы получилось:
"Ехал Ваня на коне
Вел сабаку на ремне
А старушка в это время
Мыла фикус на окне"
Пожайлуста! Не обязательно делать правильные окончания.
Пожаловаться
- 27.09.2017 20:50
- Информатика
- remove_red_eye 6501
- thumb_up 9
Ответы и объяснения 1
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var a:='Ехал фикус на коне';
var b:='Вёл старушку на ремне';
var c:='А собака в это время';
var d:='Мыла Ваню на окне';
var m1:=a.ToWords;
var m2:=d.ToWords;
Swap(m1[1],m2[1]);
a:=m1.JoinIntoString;
d:=m2.JoinIntoString;
m1:=b.ToWords;
m2:=c.ToWords;
Swap(m1[1],m2[1]);
b:=m1.JoinIntoString;
c:=m2.JoinIntoString;
Writeln(a,NewLine,b,NewLine,c,NewLine,d)
end.
Результат
Ехал Ваню на коне
Вёл собака на ремне
А старушку в это время
Мыла фикус на окне
Внимание! Если программа не работает, обновите версию!
begin
var a:='Ехал фикус на коне';
var b:='Вёл старушку на ремне';
var c:='А собака в это время';
var d:='Мыла Ваню на окне';
var m1:=a.ToWords;
var m2:=d.ToWords;
Swap(m1[1],m2[1]);
a:=m1.JoinIntoString;
d:=m2.JoinIntoString;
m1:=b.ToWords;
m2:=c.ToWords;
Swap(m1[1],m2[1]);
b:=m1.JoinIntoString;
c:=m2.JoinIntoString;
Writeln(a,NewLine,b,NewLine,c,NewLine,d)
end.
Результат
Ехал Ваню на коне
Вёл собака на ремне
А старушку в это время
Мыла фикус на окне
Пожаловаться
- 28.09.2017 16:17
- thumb_up 7
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы