Что бы такого интересного сделать,чтобы убить остатки своего мозга?

The Sims)

потратить на благотворительность
потому что призы начинаются со 100 пунктов
у меня 99 пунктов так сгорело  

Звонить 29202010

Дышите глубже.
Съешьте вкусняшку.
Посмотрите фильм/сходите в гости/по магазинам/побродите по улицам.

А еще очень хорошо подумать о том, что скоро конец света/зомбиапокалипсис и вполне возможно все укмрут, а вы останетесь. И даже не придется ничего делать.

Иногда помогает)

Странно, вам должны были это в школе давать.

А так как я сегодня в хорошем настроении. То вот тебе ответ, паскаль я не знаю, поэтому придётся причесать код. но суть понятна.

X = число которое ввел юзер.
Z = X mod 7 .
if(Z = 0) {
  то делиться. обозначай как душе угодно
}
тадааа.

скорее всего надо какойнить луп впихнуть, и в нём чекать. Например можно сделать Divisible = 1 если делиться (если иф пошёл) , и потом чекать значение Divisible и относительно оного выводить дело на экран.

я не знаю паскаль, но логика есть,

добавлю что mod это "деление с остатком". Даёт остаток. Капают на мозги им часто на всяких тестах.

ты тут смотри акуртаней,главное без улик

http://lifehack.ru/
http://akak.ru/
http://moreblogov.ru/

www.dwar.ru

Я за это)