Вот ниже прикрепил, посмотри и картинка и скрипт
<span>Шифрование: blowfish cipher.
После дешифровки:
<span>success-1000-lolz</span></span>
//PacalABC.NET 3.4.2
//Используется формула аналогичная формуле Бине для чисел
//Фибоначчи
const
index = power(33, 0.5);
a1 = power((19 + 3 * index), 1 / 3);
a2 = power((19 - 3 * index), 1 / 3);
b = power((586 + 102 * index), 1 / 3);
var
n: smallint;
function tribonacthi(n: smallint): biginteger;
begin
if (n = 1) or (n = 2) then result := 0
else
result := RoundBigInteger(3 * b * ((power((1 / 3 * (a1 + a2 + 1)), n - 1)) / (power(b, 2) - 2 * b + 4)));
end;
begin
try
n := readinteger('Введите количество элементов для вывода:');
except
on system.formatexception do
writeln('Неверный формат ввода');
end;
for var i := 1 to n do write(tribonacthi(i), ' ');
end.
var s,i: integer;
k:array [1..100] of integer;
begin
for i := 1 to 12 do
begin
readln(k[i]);
s :=s + k[i];
end;
writeln('Ответ: ' + s);
end.
Windows является графической операционной системой для компьютеров платформы IBM PC. <span>Ее основные средства управления – графический манипулятор (мышь или иной аналогичный) и клавиатура. Система предназначена для управления автономным компьютером, но также содержит все необходимое для создания небольшой локальной компьютерной сети (одноранговой сети) и имеет средства для интеграции компьютера во всемирную сеть </span>(Интернет).