(80V5) над всем вырвжением палочка _____

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.

Объяснение:

// П

uses Drawman;

begin

 Field(3, 4);

 ToPoint(1, 1);

 PenDown;

 OnVector(0, 2);

 OnVector(1, 0);

 OnVector(0, -2);

end.

// Б

uses Drawman;

begin

 Field(3, 4);

 ToPoint(1, 1);

 PenDown;

 OnVector(0, 2);

 OnVector(1, 0);

 PenUp;

 ToPoint(1, 2);

 PenDown;

 OnVector(1, 0);

 OnVector(0, -1);

 OnVector(-1, 0);

end.

// Ч

uses Drawman;

begin

 Field(3, 4);

 ToPoint(1, 3);

 PenDown;

 OnVector(0, -1);

 OnVector(1, 0);

 OnVector(0, 1);

 OnVector(0, -2);

end.

// Ц

uses Drawman;

begin

 Field(25, 27);

 ToPoint(5, 25);

 PenDown;

 OnVector(0, -20);

 OnVector(15, 0);

 OnVector(0, 20);

 OnVector(0, -20);

 OnVector(2, 0);

 OnVector(0, -3);

end.

// Ш

uses Drawman;

begin

 Field(4, 4);

 ToPoint(1, 3);

 PenDown;

 OnVector(0, -2);

 OnVector(2, 0);

 OnVector(0, 2);

 OnVector(0, -2);

 Onvector(-1, 0);

 OnVector(0,2);

end.

// E

uses drawman;

begin

 Field(3, 4);

 ToPoint(1, 1);

 PenDown;

 OnVector(0, 2);

 OnVector(1, 0);

 PenUp;

 ToPoint(1, 2);

 PenDown;

 OnVector(1, 0);

 PenUp;

 ToPoint(1, 1);

 PenDown;

 OnVector(1, 0);

end.

(Если я тебя правильно понял то вот держи)