Среди всех n-значных чисел укажите те,сумма цифр которых равна данному числу k.

Program proga; var k,i: integer; n,d1,d: longint; st: string; begin d: =0; k: =0; n: =0; d1: =0; writeln('введите n-значное число, и число k'); readln(n,k); str(n,st); for i: =length(st) downto 1 do begin val(st[i],d1,d); {d1: =d1+d; } d1: =d1+d1; {writeln(d1); } end; if(d1=k) or (n=k) then writeln('сумма чисел n значного числа = k') else writeln('сумма чисел n значного числа не ровна k'); end.

#include < iostream> using namespace std; int main() { int a, b, c, n, i; cout < < "n = "; cin > > n; if (n < 3) { cout < < "не может быть менее 3 прямых! " < < endl; return 2; } int aa[n], bb[n], cc[n]; cout < < "ввод в формате 'a b c'" < < endl; for (i = 0; i < n; i++) { cout < < "прямая " < < i < < ": "; cin > > a > > b > > c; if ((a == 0) & & (b == 0)) { cout < < "оба коэффициента равны 0, повторите ввод." < < endl; i--; } else { aa[i] = a; bb[i] = b; cc[i] = c; } } for (i = 0; i < n; i++) { a = aa[i]; b = bb[i]; c = cc[i]; for (int j = 0; j < n; j++) { if (j == i) continue; if (aa[i] / aa[j] == bb[i] / bb[j]) { for (int k = 0; k < n; k++) { if ((k == i) || (k == j)) continue; if (aa[i] / aa[k] == bb[i] / bb[k]) cout < < "прямые " < < i < < ", " < < j < < " и " < < k < < " пересекаются." < < endl; return 0; } } } } cout < < "среди данных прямых нет трёх пересекающихся." < < endl; return 1; }