Var n,s,i:integer;
begin
write('Введите число: ');
Readln(n);
s:=0;
for i:=1 to n do s:=s+i;
Writeln('s=',s);
<span>end.</span>
N=8, i=3
при N=32, i=5
при N=64, i=6....128 - i=7, 256-i=8
Попробую описать ход предполагаемого решения, где большие буквы -имена, а маленькие - профессии, точнее их первые буквы.
Потом пишу номер условия и, в зависимости от него, переставляю имена и профессии на соответствующие позиции.
---
Сначала запишем их так, как в условии:
Б(д) В(с) А(п) Ф(т)
Условия:
1. Просто запоминаем
2. Б(д) В(п) А(с) Ф(т)
3. Просто запоминаем
4. Ф(т) Б(д) В(п) А(с)
5. Просто запоминаем
6. Просто запоминаем
7. Ф(т) А(д) В(п) Б(с)
8. Просто запоминаем.
Проверяем выполнение всех условий, убеждаемся, что все верно.
Ответ:
1-токарь Федор
2-дантист Андрей
3-плотник Виктор
4-слесарь Борис
1. Это число двузначное?
2. Это число делится на два?
3. Это число делиться на пять?
4. Это число простое?
Ну это всё что я смог придумать
:(