вот мой код
uses crt;
var
a:array[1..20] of integer;
k,n:byte;
i,x:integer;
procedure abc(i:integer);
begin
end;
begin
clrscr;
writeln('vvedite k: '); readln(k);
writeln('vvedite n: '); readln(n);
for i:=1 to 100 do
if (i=k) and (i<=n) then a[i]:=i
else if (((i mod 10)+(i div 10))=k) and (((i mod 10) or (i div 10))<n) then a[i]:=I;
for i:=1 to 100 do
write(a[i], ' '); readln;
writeln;
end.
На экран вывводится примерно след:
Цитата
введите к: 5
введите n: 10
0 0 0 5 0 0 0 0 0 0 0 0 14 0 0 0 0 0 0 2565....
т.е., понятное дело, совершенно не то, что нужновведите n: 10
0 0 0 5 0 0 0 0 0 0 0 0 14 0 0 0 0 0 0 2565....
ПС: Задача на процедуру, но я её только описал, т.к. не знаю что она должна делать в задаче.