Даны натуральные числа k и n. составить программу формирования массива а, элементами которого являются числа, сумма цифр которых равна k и которые не больше n.
составить программу на паскале.

ответ:

uses crt;

type arr=array[1..1000]of integer;

var n, k, c: integer;

a : arr;

function sum(n: integer): integer;

var s: integer;

begin

s: =0;

while n< > 0 do

begin

  s: =s+n mod 10;

  n: =n div 10;

end;

sum: =s;

end;

procedure fill(var a: arr, c, n, k: integer);

var i: integer;

begin

c: =0;

for i: =1 to n do if sum(i)=k then

begin

  inc(c);

  a[c]: =i;

end;

end;

begin

clrscr;

write('n k-> ');

readln(n, k);

fill(a, c, n, k);

for i: =1 to с do write(a[i],' ');

readln;

end.

объяснение:

"солнце" - круг с точкой в центре

"идти" - две ноги

"хлеб" - полукруг

"рот" - сильно вытянутый   полуовал

var

a: array[1..31] of real;

i,k: integer;

min: real;

begin

min: =50;

for i: =1 to 31 do

begin

readln(a[i]);

if a[i]< min then min: =a[i];

end;

k: =0;

for i: =1 to 31 do

if a[i]=min then k: =k+1;

writeln(k);

end.