Среди всех 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.

Program zadanie; var i, j: integer;       a: array[0..10] of integer; begin     i : = 0;         for j : = 100 to 110 do       begin           a[i] : = j mod 19;           i : = i + 1;       end;         for i : = 0 to 10 do       if (a[i] mod 3 = 0) then           break       else           writeln('a[', i,'] = ', a[i]); end.

And   (энд) - иend   (энд) - конецnil   (нил) - нульset  (сет) - множествоarray   (эрей) - массивfile   (файл) - файлnot   (нот) - неthen   (зен) - тоbegin   (бегин) - началоfor   (фo) - дляof   (оф) - изto   (ту) - увеличивая доcase   (кейс) - вариантwhile  (вайл) - пока downto  (даунту)- уменьшая до record   (рикод) - записьwith   (вис) - сfunction   (фанкшн)- функцияor   (ор) - илиtype   (тайп) - типconst   (конст) - константаgo to   (гоу ту)- переход наpacked   (пэкт) - упаковатьuntil   (антил) - доdiv   (див) - разделитьif  (иф) - еслиprocedure()   - процедураvar   (вар) - переменнаяdo   (ду) - выполнитьin   (ин) - вprogram   (програм) - программаelse   (элс) - иначеmod   (мод) - модульrepeat   (рипит) - повторять