По какому правилу строится имя каталога? что такое текущий файл ? что такое фалов система? что такое подкаталог? что такое родительская каталог?

Имя каталога не должно превышать 225 символов файловая система - часть ос отвечающая за выполнение операций с файлами подкаталог - папка в папке родительский (корневой) каталог - локатный диск компьютера

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

 

()   это массивы, в которых сохраним эти числа

ц2=0;

ц3=0;

ц4=0;  

ц5=0;   // это их индексы

для ц=100 до 999 цикл

      если остаток(ц+1,2)=0 тогда

                    ц2=ц2+1;

                    а2(ц2)=ц;

      конецесли;

      если остаток(ц+2,3)=0 тогда

                    ц3=ц3+1;

                    а3(ц3)=ц;

      конецесли;

 

      если остаток(ц+3,4)=0 тогда

                    ц4=ц4+1;

                    а4(ц4)=ц;

      конецесли;

 

      если остаток(ц+4,5)=0 тогда

                    ц5=ц5+1;

                    а5(ц5)=ц;

      конецесли;

 

конеццикла;

 

// теперь их напечатаем

сообщить("при увеличении на 1 делятся на 2");

для ц=1 по ц2 цикл

    сообщить(а2(ц));

конеццикла;

 

сообщить("при увеличении на 2 делятся на 3");

для ц=1 по ц3 цикл

    сообщить(а3(ц));

конеццикла;

 

сообщить("при увеличении на 3 делятся на 4");

для ц=1 по ц4 цикл

    сообщить(а4(ц));

конеццикла;

 

сообщить("при увеличении на 3 делятся на 4");

для ц=1 по ц4 цикл

    сообщить(а4(ц));

конеццикла;

   

сообщить("при увеличении на 4 делятся на 5");

для ц=1 по ц5 цикл

    сообщить(а5(ц));

конеццикла;

 

 

ну вот, где-то так.

 

но если , то нужно по-другому, и информатика здесь совершенно ни при чём, скорее теория чисел.

 

  да, в условии не сказано, что одновременно, поэтому я решал "не одновременно"

 

если одновременно, то ещё проще, всего одно условие со сложным условием и можно без массивов.

 

ну и ещё: использована функция она есть в любом языке. если то легко пишется вручную.

 

//pascalabc.net версия 3.2, сборка 1389 //если программа не запускается, то обновите версию uses graphabc; const       kegl = 40; var       space, line: integer; procedure m(cx, cy: integer); begin       moveto(cx, cy);       lineto(cx, cy - kegl );       lineto(cx + kegl div 2, cy);       lineto(cx + kegl, cy - kegl);       lineto(cx + kegl, cy); end; procedure i(cx, cy: integer); begin       moveto(cx, cy - kegl);       lineto(cx, cy );       lineto(cx + kegl, cy - kegl);       lineto(cx + kegl, cy); end; procedure r(cx, cy: integer); begin       moveto(cx, cy);       lineto(cx, cy - kegl);       lineto(cx + kegl, cy - kegl);       lineto(cx + kegl, cy - kegl div 2);       lineto(cx, cy - kegl div 2); end; begin       space : = kegl div 2;             setwindowsize(4 * space + 3 * kegl, 4 * space + 3 * kegl );             line : = space + kegl;       m(space, line );       i(2 * space + kegl, line );       r(3 * space + 2 * kegl, line );             line : = 2 * space + 2 * kegl;       r(space, line );       i(2 * space + kegl, line );       m(3 * space + 2 * kegl, line );             line : = 3 * space + 3 * kegl;       m(space, line );       i(2 * space + kegl, line );       m(3 * space + 2 * kegl, line ); end.