Pascal. ввести натуральное число n и вывести все натуральные числа, не превосходящие n и делящиеся на каждую из своих цифр. пример: введите n: 15 1 2 3 4 5 6 7 8 9 11 12 15

var n,i,k,d: integer; b: boolean;

begin

write('n = '); readln(n);

for i: =1 to n do

  begin

  b: =true;

  k: =i;

  while b and (k> 0) do 

    begin

    d: =k mod 10;

    if d< > 0 then b: =b and (i mod d = 0) else b: =false;

    k: =k div 10;  

    end;

    if b then write(i,' ');

  end;

  writeln;

end.

укрытся одеялом и лечь спать,   и пить лекартва и остаться дома

используется язык pascal

program pr;

var

  mas: array[1..7] of integer;

  i: integer;

begin

writeln('вводим значения в массив');

  for i: =1 to 7 do readln (mas[i]);

writeln('выводим значения из массива');

  for i: =7 downto 1 do writeln(mas[i]);

readln;

end;