Было: 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 кон
Aleksandrovna1153
15.07.2020
#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 есть 5 способов выбрать d2 (0,1,2,3,4), 3 способа выбрать d3 и 2 способа выбрать d5 --> всего 5 * 3 * 2 = 30 возможных наборов --> 30 делителей у числа 720 (если какое-то число не появляется среди делителей множителей, то его можно взять только одним способом - со степенью 0 - что не влияет на ответ) */
в феврале 1946 года был создан первый компьютер.