Поделитесь своими знаниями, ответьте на вопрос:
Системный администратор геннадий ака крокодил получил от провайдера в свое распоряжение сеть 195.196.197.0/24. вызвал он своего верного падавана чебурашку и поставил ему разделить сеть на части так, чтобы в каждой подсети было не менее двух компьютеров и количество адресов для назначения на интерфейсах маршрутизатора в качестве основных шлюзов подсетей было максимальным. чебурашка долго думал, но все-таки решил поставленную , применив к заданной сети маску …
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('Строка:'); // общая часть
// #1
var c1,c2:char;
Write('Введите БЕЗ ПРОБЕЛА исходный и заменяющий символы: ');
Readln(c1,c2);
s:=s.Replace(c1,c2); s.Println;
// #2
s:=s.Where(c->not (c in ['0'..'9'])).JoinIntoString; s.Println;
// #3
var k:=ReadInteger('k=');
s:=s.Batch(k).SelectMany(c->c+NewLine).JoinIntoString(''); s.Println
end.
Пример
Строка: Площадь Чёрного моря 422000 кв.км, Наибольшая глубина 2210 м, средняя — 1240 м.
Введите БЕЗ ПРОБЕЛА исходный и заменяющий символы: гЪ
Площадь ЧёрноЪо моря 422000 кв.км, Наибольшая Ълубина 2210 м, средняя — 1240 м.
Площадь ЧёрноЪо моря кв.км, Наибольшая Ълубина м, средняя — м.
k= 35
Площадь ЧёрноЪо моря кв.км, Наибол
ьшая Ълубина м, средняя — м.