Не могу решить по информатике. найти все трехзначные числа, которые при увеличении на 1 делятся на 2, при увеличении на 2 делятся на 3, при увеличении на 3 делятся на 4, при увеличении на 4 делятся на 5. буду

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

 

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

ц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(ц));

конеццикла;

 

 

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

 

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

 

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

 

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

 

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

 

Var       a: array[0..10] of integer;       i, n, k: integer; begin       for i : = 0 to 10 do               a[i] : = i + 1;       for i : = 0 to 10 do       begin               a[i] : = a[10 - i];               println(a);       end; end. трасировка а [11,2,3,4,5,6,7,8,9,10,11] [11,10,3,4,5,6,7,8,9,10,11] [11,10,9,4,5,6,7,8,9,10,11] [11,10,9,8,5,6,7,8,9,10,11] [11,10,9,8,7,6,7,8,9,10,11] [11,10,9,8,7,6,7,8,9,10,11] [11,10,9,8,7,6,7,8,9,10,11] [11,10,9,8,7,6,7,8,9,10,11] [11,10,9,8,7,6,7,8,9,10,11] [11,10,9,8,7,6,7,8,9,10,11] [11,10,9,8,7,6,7,8,9,10,11] ответ 3

A  b  c   b и с     f 0   0   0       0         0 0   0   1     0         0 0   1   0     0         0 0   1   1     1         1 1   0   0     0         1 1   0   1     0         1 1   1   0     0         1 1   1   1     1         1