//PascalABC.NET 3.2, старой версии нет, не могу проверить
begin
var a: BigInteger := 1;
for var i := 1 to ReadInteger do
a *= i;
write(a)
end.
Первый смайлик может быть любым: грустным или весёлым. Вторым тоже может быть любым. Третьим уже остаётся лишь один вариант, так как не может быть подряд три идущих. Четвёртым, пятым могут идти любые смайлики, а шестым уже один. Так будет повторяться: седьмой, восьмой - два, девятый - один. Десятый - любой из двух. Итого выходит:
2 · 2 · 1 · 2 · 2 · 1 · 2 · 2 · 1 · 2 = 2⁷ = 128 дней он может без повторений отсылать сигналы.
(I - информационный объем текста, K - кол-во символов, i - вес одного символа/бит на символ)
Дано:
K = 6 * 40 * 60 = 14400 шт
I = 28800 байт = 28800 * 8 бит = 230400 бит
i - ?
Решение:
бит
Ответ: 16.0
//Вариант 2
//Pascal ABC.NET v3.0 сборка 1111
Var
i,max,n,a:integer;
begin
readln(n);
max:=-2147483648;
i:=1;
while i<>n+1 do
begin;
readln(a);
if (max<a) and (a mod 2=0) then max:=a;
i:=i+1;
end;
write(max);
<span>end.
</span>
Пример ввода:
4
1
2
3
4
Пример вывода:
4
Var a,b,c,d,k,f,flag: integer;
begin
readln(a,b,c,d);
repeat
K:=k+1;
Case k of
1: f:=b;
2: f:=c;
3: f:=d;
end;
If a<f then flag:=flag+1
else flag:=0;
Until k=3;
If flag=3 then Writeln('yes')
else writeln('no');
readln;
end.
