Program Task;
Var a, b, c, d: Integer;
Function Max(a, b: Integer): Integer;
Begin
If a > b Then
Result := a
Else
Result := b;
End;
Function Min(a, b: Integer): Integer;
Begin
If a < b Then
Result := a
Else
Result := b;
End;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
Write('c = ');
ReadLn(c);
Write('d = ');
ReadLn(d);
WriteLn('max(a, b) + min(a, b) + min(c,d) = ', Max(a, b) + Min(a, b) + Min(c,d));
WriteLn('max(a, b, c, d) + min(a, b, c) = ', Max(Max(a, b), Max(c, d)) + Min(Max(a, b), c));
ReadLn;
<span>End.</span>
Во 2 Естественный
В 3 байт
в<em> 5</em> обработка
<u>PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(20,-20,60); a.Println;
var x:=ReadInteger('Какое число ищем?');
if a.Contains(x) then Writeln('Такое число есть')
else Writeln('Такого числа нет')
end.
<u>Примеры</u>
42 23 59 0 20 23 41 26 47 8 23 42 20 35 31 53 -4 53 8 14
Какое число ищем? 25
Такого числа нет
15 1 44 40 55 3 31 -12 29 33 4 -13 -12 43 -14 51 44 -2 41 18
Какое число ищем? -12
Такое число есть
Первый смайлик может быть любым: грустным или весёлым. Вторым тоже может быть любым. Третьим уже остаётся лишь один вариант, так как не может быть подряд три идущих. Четвёртым, пятым могут идти любые смайлики, а шестым уже один. Так будет повторяться: седьмой, восьмой - два, девятый - один. Десятый - любой из двух. Итого выходит:
2 · 2 · 1 · 2 · 2 · 1 · 2 · 2 · 1 · 2 = 2⁷ = 128 дней он может без повторений отсылать сигналы.
