<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (max, min, k) := (-100000, 100000, 0);
ReadSeqIntegerWhile(t -> t <> 0)
.Foreach(t ->
begin
if t > max then max := t;
if t < min then min := t;
if t mod 10 = 7 then Inc(k)
end);
Writeln('min=', min, ', max=', max, ', искомое кол-во: ', k)
end.
<span> Задача 5. “Кузнечик”
В одной стране жил-был волшебный кузнечик, умеющий прыгать на любое расстояние. А ко-
гда он изучил тему «числовые последовательности», то решил прыгать по дороге с нумерованны-
ми клетками по придуманному им правилу: 1 2 4 7 11 16 22 29 и так далее, дальше продолжи-
те сами. А другой кузнечик решил подкараулить его в какой-нибудь клетке N, чтобы не дать уска-
кать в бесконечность. Помогите ему, предложите алгоритм, проверяющий, попадет ли первый
кузнечик в клетку N?
Решение: Можно догадаться, что каждое n-ное число bn = bn-1 + n – 1, где b1 = 1. Можно также
догадаться, что каждое число нашей прогрессии bn = 1 + 1 + 2 + 3 + … + n – 1 = 1 + Sn , где Sn – это
сумма арифметической прогрессии с a1=0 и d=1. И по формуле прогрессии получаем:
bn = 1 + n(n-1)/2. Остается проверить, равно ли введенное N какому-нибудь bn. Решаем уравнение:
N = 1 + n(n-1)/2, квадратное уравнение: n2 – n + 2 – 2N = 0, D = 1 – 4(2-2N) = 8N – 7,
n = (1+sqrt(8N-7))/2 – берем только положительный ответ. Получился алгоритм: Подставляем N в
формулу для n и если n – целое, то кузнечик попадет в клетку с номером N. Вопрос только, как
проверить, целое ли n. Для этого проверяем, достаточно ли мало отклонение его от его округле-
ния: если abs( n – round( n ) ) < 0,000000000000001, то n – скорее всего целое. По крайней мере с
точностью до 0,000000000000001.</span>
Коммутационный аппарат — аппарат, предназначенный для включения или отключения тока в одной или нескольких электрических цепях.[1][2][3]
Коммутационный аппарат — электрический аппарат, предназначенный для коммутации электрической цепи и снятия напряжения с части электроустановки.[4]
Механический коммутационный аппарат — коммутационный аппарат, предназначенный для замыкания и размыкания одной или более электрических цепей с помощью разъединяемых контактов.[5]
В общем случае можно разделить все коммутационные аппараты на два типа:
<span><span>Контактный коммутационный аппарат, осуществляющий коммутационную операцию путём перемещения его контакт-деталей относительно друг друга.</span><span>Бесконтактный коммутационный аппарат, осуществляющий коммутационную операцию без перемещения и разрушения его деталей.</span></span>
27 символов, 1 сим=1байт
27байт информационный объем
