Алгоритм, чтобы задать 10 вопросов в

Если считать отрицательные трехзначные, то сумма таких чисел в диапазонах от -999 до -100 и от 100 до 999 будет равна 0. Для только положительных:

//c циклом for
var s,i:integer;
begin
  for i:=100 to 999 do
    if i mod 77 = 0 then s:=s+i;
  writeln('Сумма трехзначных кратных 77: ',s);
end.

Тестовое решение:
Сумма трехзначных кратных 77: 5929

// с циклом while
var s,i:integer;
begin
  i:=100;
  while i<=999 do begin
    if i mod 77 = 0 then s:=s+i;
    i:=i+1;
  end;
  writeln('Сумма трехзначных кратных 77: ',s);
end.

Привет Пикабу!

Насмотревшись Гривити Фолз и вдохновившись всякими загадками, которыми этот сериал был напичкан, я полез искать информацию про всякие шифры. И тут меня посетила идея сделать на основе шифров квест для своей жены (тогда ещё девушки). У меня в наличии было 2 дня, т.к. она уехала в гости к маме и мне не пришлось шифроваться. Бегло накидав на листик план действий, я полез за материалом. Шифров, загадок, ребусов в интернете оказалось очень много. Почти 2 дня у меня и ушло вперемешку с сериальчиков, листания пикабу и пинанием хрена.

Сейчас покажу всё, что в итоге получилось из моей затеи.

Объяснение: