// PascalABC.NET 3.3, сборка 1590 от 03.12.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=ReadlnString.ToWords; // читаем строку, образуем массив слов var s:=(a[:2]+a[3:]).JoinIntoString; // получаем новую строку Writeln(s) // вывод... end.
Пояснения. a - массив с индексами от 0 до n-1, где n - число слов. Срез a[:2] возвращает последовательность элементов массива 0 и 1. Срез a[3:] возвращает последовательность элементов массива, начиная с третьего и до конца массива. Объединение последовательностей порождает необходимый набор слов, который объединяется в строку через пробел при
Пример А роза упала на лапу Азора А роза на лапу Азора
Есть во многих языках программирования, зря не указали, какой Вам надо.
// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('День недели (1- Пн, 2- Вт, ... 7- Вс:');
Writeln(n<6?'Рабочий день':n=6?'Суббота':'Воскресенье')
end.
Примеры (предполагается без проверки корректность ввода)
День недели (1- Пн, 2- Вт, ... 7- Вс: 4
Рабочий день
День недели (1- Пн, 2- Вт, ... 7- Вс: 6
Суббота
День недели (1- Пн, 2- Вт, ... 7- Вс: 7
Воскресенье
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadlnString.ToWords; // читаем строку, образуем массив слов
var s:=(a[:2]+a[3:]).JoinIntoString; // получаем новую строку
Writeln(s) // вывод...
end.
Пояснения.
a - массив с индексами от 0 до n-1, где n - число слов.
Срез a[:2] возвращает последовательность элементов массива 0 и 1.
Срез a[3:] возвращает последовательность элементов массива, начиная с третьего и до конца массива. Объединение последовательностей порождает необходимый набор слов, который объединяется в строку через пробел при
Пример
А роза упала на лапу Азора
А роза на лапу Азора