Выяснить если число можно представить как суму из чисел 5 и 3. Опции

[DarkWishmaster]

Привет.
Задача: выяснить если число может быть записано как сума из чисел 5 и 3.
Например 11=5+3+3 или 16=5+5+3+3.
У меня получилось если только в суме все числа 3 и одна 5 или наоборот например 11 или 23 но если 16=5+5+3+3 то тут тупик.
Может у вас есть идеи, спасибо заранее.

[-Volvo-]

Так в тот то и дело что число можно разложить, и если удалить exit то выводит разложение только в бесконечном цикле.
Он будет показывать только если удалить clrscr и заново ctrl+f9

Фантастика - на другом форуме. У меня, значит, работает, а у тебя - нет? Значит, показывай полный код, что ты там накрутил...

[DarkWishmaster]

Фантастика - на другом форуме. У меня, значит, работает, а у тебя - нет? Значит, показывай полный код, что ты там накрутил...

║Program P1; uses crt;                                                         
║ var s,x,y,m:integer;                                                         
║  begin  clrscr;                                                              
║  read(S);                                                                    
║    while M>=0 do                                                             
║   begin                                                                      
║      M:=S-3*y;                                                               
║       if M mod 5=0 then                                                      
║       begin                                                                  
║       writeln(S,'=',M div 5,'*5+',Y,'*3');                                   
║        exit;                                                                 
║        end                                                                   
║        else inc(y);                                                          
║        end;                                                                  
║     readln;                                                                  
║     end.                                                                     
║                                       

С оператором clrscr; о ничего не выводит на экран, без него он выходит из цикла, и потом снова ctrl+f9 и видешь результат