Функція ABC
1) множення числа
2) віднімання від числа
3)корінь числа
4) модуль числа
Розділ опису змінних розпочинається службовим словом
1) var
2)begin
3)type
4) label

Функция isSevenHere возвращает истину, если в числе есть семерка, и ложь - если ее нет. В цикле for перебираем все значения от 1 до K (число, введенное с клавиатуры), и выводим на экран только те, где есть семерка.

Код программы:

function isSevenHere(number : integer) : boolean;var digit : integer;begin  Result := true;  while (number > 0) do  begin        digit := number mod 10;    if (digit = 7) then            exit;    number := number div 10;  end;  Result := false;end;
var i,k :integer;begin  write('Введите k: ');  readln(k);
  for i := 1 to k do    if (isSevenHere(i) = true) then      write(i,' ');end.

Перевод десятичного числа в двоичное выполняется делением: исходное число делим на 2 (т.к. в двоичной системе алфавит состоит из 2 цифр: 0,1), в остатке должно получится либо 1, либо 0, если не получилось, то делим дальше (как в обычном делении) пока не получим в остатке либо 1, либо 0; после этого полученное частное делим на 2, и снова должны получить либо 1, либо 0; и так делаем до того момента, пока в частном не будет 0. Получившиеся остатки записываем в обратном порядке, получается исходное число в двоичной системе (в 8-ричной, 16-ричной системе то же самое, только вместо того, чтобы делить на 2, мы делим либо на 8, либо на 16)