Безвыходная подпрограмма

[waspagv]

Разбирали как-то со школьниками такую задачу по программированию. Найти все шестизначные целые числа, которые

а) делятся на 5;
б) состоят из различных цифр (ни одна цифра в записи числа не встречается дважды);
в) четные и нечетные цифры чередуются

Comments

[m61]

> implicit none

Уважаю.

[waspagv]

Это Вирт меня научил.