дано n натуральное. найти и вывести все числа в интервале от 10 до n-1, у которых произведение всех цифр совпадает с суммой цифр данного числа. если таких чисел нет вывести "нет". паскаль

Var
  i, n, j, p, s: longint;
  st: string;
  b: boolean;
 begin
  s := 0;
  b := false;
  readln(n);
  for i := 1 to n.ToString.Length do
  s := s + strtoint(n.ToString[i]);
for i := 10 to n - 1 do
  begin
    st := i.ToString;
    p := 1;
    for j := 1 to st.Length do
      p := p * strtoint(st[j]);
    if(p = s) then begin b := true;writeln(i); end;
   end;
  if(b = false) then write('Нет');
end.

Человеческое общество по мере своего развития этапы овладения веществом, затем энергией и, наконец, информацией. В первобытно-общинном, рабовладельческом и феодальном обществах (в основе существования которых лежало ремесло) деятельность общества в целом и каждого человека в отдельности была направлена, в первую очередь, на овладение веществом.

На заре цивилизации (десятки тысяч лет до н. э.) люди научились изготавливать орудия труда и охоты (каменный топор, стрелы и так далее), в античности появились первые механизмы (рычаг и др.) и средства передвижения (колесницы, корабли), в средние века были изобретены первые сложные орудия труда и механизмы (ткацкий станок, часы).

Овладение энергией находилось в этот период на начальной ступени, в качестве источников энергии использовались Солнце, вода, огонь, ветер и мускульная сила человека.

Включите за пароля для пользователя при входе в систему. Для этого нажмите клавиши Win+R (Win-клавиша с эмблемой Windows) на клавиатуре, введите netplwiz в окне «Выполнить» и нажмите Enter. Выберите проблемного пользователя и установите отметку «Требовать ввод имени пользователя и пароля», примените настройкиПерезагрузите компьютер (выполните именно перезагрузку, а не завершение работы и последующее включение).Вы можете снова отключить за пароля при входе, если нужно, но: при использовании учетной записи Майкрософт, после нажатия Ок (когда нужно ввести пароль и подтверждение пароля) измените верхнее поле с имени пользователя на привязанный к учетной записи E-mail.источник https://remontka.pro/duplicate-users-windows-10-login/