Реши . три товарища — миша, вадим и артём — пошли в лес за грибами. причём каждый из них шёл вместе со своей сестрой. имена девочек: катя, ира, вера. мальчики быстро наполнили свои корзины и стали девочкам. назовите имя сестры каждого из , если оказалось, что ни один из них не клал грибы в корзину своей сестры. вадим положил несколько грибов в корзину кати, миша — несколько грибов в корзину кати и веры.

Миша- Ира
Вадим- Вера
Артем- Катя

#include<stdio.h>
int main(){
    int div[10001];
    int i,d,n,x;
    long int p = 1;
   
    for(i = 0; i < 10000; i++)
        div[i] = 1;

    scanf("%d",&n);
    for(i = 0; i < n; i++){
        scanf("%d",&x);
        d = 2;
        while(d <= x){
            while(x%d == 0){
                x /= d;
                div[d]++;
            }
            d++;
        }
    }

    for(i = 0; i < 10000; i++)
        p *= div[i];
    printf("%ld",p);
    return 0;
}


/*
Небольшое пояснение:
Идея решения заключается в том, что любой делитель результата представим как произведение простых чисел в определенных степенях. Тогда набор этих степеней однозначно определяет соответствующий делитель. Максимальная степень, с которой может быть взято простое число, является суммой степеней, с которыми оно входит в множители.
Для простоты массив вхождений делителей задан от 0 до 10000, но т.к. перебор делителей множителей идет по возрастанию, учтены будут только простые делители.

Пример:
10 * 8 * 9 = 720

10 = 2^1*5^2
8 = 2^3
9 = 3^2

Т.е. число 2 входит в произведение в четвертой степени, 3 - во второй, 5 - в первой.

Значит любой делитель числа 720 представим (единственным образом) в виде
2^(d2) * 3^(d3) * 5^(d5), где d2 = 0..4, d3 = 0..2, d5 = 0..1

Например, 1 = 2^0 * 3^0 * 5^0, 720 = 2^4 * 3^2 * 5^1

Есть выбрать выбрать d3 и выбрать d5 --> всего 5 * 3 * 2 = 30 возможных наборов --> 30 делителей у числа 720

(если какое-то число не появляется среди делителей множителей, то его можно взять только одним со степенью 0 - что не влияет на ответ)
*/

Было:
const
  N = 10;
 
var
  i, S: integer; 
  m: array [1..N] of integer;
 
begin
  randomize; 
  S := 0;
  for i := 1 to N do
  begin
    m[i] := random(201) - 100;
    writeln(m[i]);
  end;
  for i := 1 to N do
    if m[i] mod 2 = 0 then
      S := S + m[i];
  writeln('Summa = ', S);
  readln;
end.
 
Стало:
цел i, S, N
N := 10
цел таб m[1:N]
 
алг
нач
  S := 0
  нц для i от 1 до N
    m[i] := irand(-100, 100)
    вывод m[i], нс
  кц 
  нц для i от 1 до N
    если mod(m[i], 2) = 0 то
      S := S + m[i]
    все
  кц
  вывод "Summa = ", S
кон