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

152

272

Посмотреть ответы 2

Ответы на вопрос:

VictorTsoy62

Информатика

4,4(71 оценок)

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.