Найти и вывести на экран все целые числа из промежутка от 1 до K, в десятичной записи которых есть цифра 7. K вводится с клавиатуры Pascal ABC

Найти и вывести на экран все целые числа из промежутка от 1 до K, в десятичной записи которых есть цифра 7. K вводится с клавиатуры Pascal ABC
Гость
Ответ(ы) на вопрос:
Гость
Функция 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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы