PascalABC.NET 3.4.0, сборка 1675 от 12.06.2018 Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println; Writeln('Сумма квадратов элементов с четными значениями равна ', a.Where(t->t.IsEven).Select(t->t*t).Sum); Writeln('Сумма квадратов четных по порядку элементов равна ', Range(1,a.Length-1,2).Select(i->Sqr(a[i])).Sum) end.
// если индекс начального элемента считать 1 то можно так begin var arr := Arr(1,2,3,4,5,6).Println; Print('Сумма квадратов элементов массива с четными индексами: S = ' + arr.Where((el,ind)->odd(ind)).Select(t->t*t).Sum); end.
Значит 2527= количество квартир * количество подъездов 2527 = n * m = 7 * 19 *19 Получается, что если подъездов 7, то в каждом 19 * 19 квартир, что отвечает 19 площадкам, и на каждой площадке в таком случае по 19 квартир.
Или может быть 19 подъездов, 7 этажей по 19 квартир на этаже
Или же 2527 = 7 * 361 * 1 = 133 * 19 * 1
133 подъезда, 1 этаж, на каждом этаже 19 квартир 361 подъезд, 1 этаж, на каждом этаже 7 квартир
Или же 2527 = 2527 * 1 * 1
2527 подъезд, 1 этаж, на каждом этаже по 1 квартире 1 подъезд, 1 этаж, 2527 квартир на этаже
Http://planetcalc.ru/1434/ Шифр Цезаря один из наиболее древнейших известных шифров. Схема шифрования очень проста - используется сдвиг буквы алфавита на фиксированное число позиций. Используемое преобразование обычно обозначают как ROTN, где N - сдвиг, ROT - сокращение от слова ROTATE, в данном случае "циклический сдвиг".
Алфавит действительно зацикливается, то есть буквы в конце алфавита преобразуются в буквы начала алфавита. Например, обозначение ROT2 обозначает сдвиг на 2 позиции, то есть "а" превращается в "в", "б" в "г", и так далее, и в конце "ю" превращается в "а" а "я" - в "б". Число разных преобразований конечно и зависит от длины алфавита. Для русского языка возможно 32 разных преобразования (преобразования ROT0 и ROT33 сохраняют исходный текст, а дальше начинаются уже повторения). В связи с этим шифр является крайне слабым и исходный текст можно восстановить просто проверив все возможные преобразования.
Калькулятор выдает таблицу всех возможных в шифре Цезаря преобразований введенного текста. Неалфавитные символы - знаки препинания, пробелы, цифры - не меняются.
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
Writeln('Сумма квадратов элементов с четными значениями равна ',
a.Where(t->t.IsEven).Select(t->t*t).Sum);
Writeln('Сумма квадратов четных по порядку элементов равна ',
Range(1,a.Length-1,2).Select(i->Sqr(a[i])).Sum)
end.