Дано натуральное число n. найти наименьшее число м (n < m < 2n) которое делится на сумму цифр числа n (без остатка если такого числа нет, то вывести слово «нет». пример. n = 12 345, м = 12360. число 12 360 делится на число 15 — сумму цифр числа n

Var m, n, sumn: integer; begin   readln(n);   m : = n;   sumn : = 0;   while (m > 0) do   begin     inc(sumn, m mod 10);     m : = m div 10;   end;   m : = (n div sumn + 1) * sumn;   if (m < 2*n) then     writeln(m)   else     writeln('нет') end.

Решение на паскале: uses crt; var i , j , m , x : integer; ok : boolean; r , c : array[1..100] of integer; begin read(m); for i : = 1 to m do begin r[i] : = 0; c[i] : = 0; end; for i : = 1 to m do for j : = 1 to m do begin read(x); r[i] : = r[i] + x; c[j] : = c[j] + x; end; ok : = false; for i : = 1 to m do begin if r[i] = 0 then begin ok : = true; writeln('row #' , i); end; if c[i] = 0 then begin ok : = true; writeln('col #' , i); end; end; if not ok then writeln('no zero rows/cols'); readkey; end.

1.в каком произведении бетховена   есть эпиграф: так судьба стучится в дверь? ( в симфонии № 5)

2. какое произведение бетховен посвятил наполеону, но когда узнал, что наполеон провозгласил себя императором , зачеркнул посвящение и назвал произведение героическим? ( симфония № сначала была посвящена наполеону, а в вошла как "героическая")

3кому бетховен посвятил вокальный цикл "к далекой возлюбленной"? ( критики до сих пор не сошлись во мнении, предполакают терезии брунсвик)

4.сколько увертюр у бетховена? (11)

5. сколько опер у бетховена? назвать их ( одна опера - "фиделио")

6. год рождения людвига ван бетховена?

7.   представителем какого музыкального направления является бетховен?

8.   какого поэта любил читать бетховен?

9. где родился бетховен?

10. какая из симфоний бетховена, по мнению критиков, раскрывает его величайший талант?