Помогите с программой

[Hamza117]

Я новичек в программировании, попробую сделать как вы сказали...

[ura_111]

Кстате, ты знаешь, что раздел Фриланс платный?
Попробуй сам, а если не получиться (или будешь слишком ленив), тогда нанимай человека.


Попробуй просто чуть-чуть усложнить условие:

if sum = S then

Для начала добавь "не одинаковость i,j" с помощью "логического и", т.е. "i" не равно "j"... По идеи должны уйти все "i=j". Если получиться - усложняй условие следующей парой: "j" "l".... Компилируй смотри, получилось ли....
и т.д.
_
Логические операции учили?
Логическое "И"?

[ura_111]

Заснул, что ли?
Я вижу дело совсем плохо....

Ищи в интернете примеры: "логическое И в PascalABC" и "не равно в PascalABC"

[Serge_Bliznykov]

Сообщение от Hamza117

Я новичек в программировании, попробую сделать как вы сказали...

я закрыл вашу тему в разделе Фриланс.
потому что могу предложить Вам такой код:

var
 i,j,l,t,k,sum, N,S: word;

 begin
 write('Предел для перебираемых чисел: ');
 readln(N);
 write('Искомая сумма: ');
 readln(S);
 for i:=1 to N do 
 for j:=1 to N do
 for l:=1 to N do
 for t:=1 to N do 
   if (i<>j) and (i<>l) and (i<>t) and (j<>l) and (j<>t) and (l<>t) then begin
      sum := i + j + l + t;
     if (sum = S) then  writeln(i,' ',j,' ',l,' ',t);
   end;
 readln;
end.

вообще-то, перебор не очень оптимальный - если нужно получить сумму, то последнее число можно получать без цикла, банально t := S - (i+j+l);
да и перебирать числа, когда уже i>S или i+j>=S или i+j+l>=S тоже нет смысла.

[Hamza117]

Спасибо огромное!!! Это то, что нужно!!!

[Serge_Bliznykov]

на здоровье!