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.

в системе ascii 1 символ кодируется 1 байтом, в юникоде 2 (ну так, к слову)

текст наш состоит из 30 символов (пробелы и знаки припинания тоже считаем), значит он занимает 30 байт = 240 бит

var n,z: longint;

begin

  read(n);

  z: =abs(n);

  z: =z-2;

  writeln(z);

end.